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// W0752_2048 = 
// W0753„2048 = 
// W0754_2048 = 
// W0756_2048 = 
// W0758_2048 = 
// W0759_2048 = 
// W0760_2048 = 
// W0762_2048 = 
// W0764_2048 = 
// W0765_2048 = 
// W0766_2048 = 
// W0768_2048 = 
// W0770_2048 = 
//W0771_2048 = 
// W0772_2048 = 
// W0774_2048 = 
// W0776_2048 = 
// W0777_2048 = 
// W0778_2048 = 
// W0780_2048 = 
// W0782_2048 = 
// W0783_2048 = 
// W0784_2048 = 
// W0786_2048 = 
// W0758_2048 = 
// W0789_2048 = 
// W0790_2048 = 
// W0792_2048 = 
// W0794_2048 = 
// W0795_2048 = 
// W0796_2048 = 
// W0798_2048 = 
// W0800_2048 = 
// W0801_2048 = 
// W0802_2048 = 
// W0804_2048 = 
// W0806_2048 = 
// W0807_2048 = 
// W0808_2048 = 
//W0810_2048 = 
//W0812_2048 = 
// W0813_2048 = 
// W0814_2048 = 
// W0816_2048 = 
// W0818_2048 = 
// W0819_2048 = 
// W0820_2048 = 
// W0822_2048 = 
// W0824_2048 = 
// W0825_2048 - 
II W0826_2048 = 
// W0828_2048 = 
// W0830_2048 = 
// W0831_2048 : 
// W0832_2048 = 
//W0834 2048 = 



-0.671 Z59 
-0.673829 
-0.676093 
-0.680601 
-0.685084 
-0.687315 
-0.689541 
-0.693971 
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-0.700569 
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-0.773010 
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-0.780737 
-0.784557 
= -0.786455 
= -0.788346 
-0.792107 
= -0.795837 

■ -0.797691 
= -0.799537 
= -0.803208 
= -0.806848 
■■ -0.808656 
= -0.810457 
= -0.814036 
= -0.817585 
= -0.819348 
= -0.821103 
= -0.824589 
: -0.828045 

■ -0.829761 

■ -0.831470 
= -0.834863 
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// W0920_2048 = 
//W0921_2048 = 
// W0922_2048 = 
// W0924_2048 = 
// W0926_2048 = 
// W0927_2048 = 
// W0928_2048 = 
// W0930_2048 = 
// W0932_2048 = 
// W0933_2048 = 
// W0934_2048 = 
// W0936_2048 = 
// W0938_2048 = 
// W0933_2048 = 
// W0940_2048 = 
// W0942_2048 = 
// W0944_2048 = 
// W0945_2048 = 
// W0946_2048 = 
// W0948_2048 = 
// W0950_2048 = 
// W0951_2048 = 
// W0952_2048 = 
// W0954_2048 = 
// W0956_2048 = 
// W0957_2048 = 
// W0958_2048 = 
// W0960_2048 = 
// W0962_2048 = 
// W0963_2048 = 
// W0964_2048 = 
// W0966_2048 = 
// W0968_2048 = 
// W0969_2048 = 
// W0970_2048 = 
// W0972_2048 = 
// W0974_2048 = 
// W0975_2048 = 
// W0976_2048 = 
// W0978_2048 = 
// W0980_2048 = 
// W0981_2048 = 
// W0982_2048 = 
// W0984_2048 = 
// W0986_2048 = 
// W0987_2048 = 
// W0988_2048 = 
7/ W0990_2048 = 
// W0992_2048 = 
// W0993_2048 = 
// W0994_2048 = 
// W0996_2048 = 
// W0998_2048 = 
// W0999_2048 = 
// W1000_2048 = 
//W1002 2048 = 



-0.949528 
-0.950486 
-0.951435 
-0.953306 
-0.955141 
-0.956045 
-0.956940 
-0.958703 
-0.960431 
-0.961280 
-0.962121 
-0.963776 
-0.965394 
-0.966190 
-0.966976 
-0.968522 
-0.970031 
-0.970772 
-0.971504 
-0.972940 
-0.974339 
-0.975025 
-0.975702 
-0.977028 
-0.978317 
-0.978948 
-0.979570 
-0.980785 
-0.981964 
-0.982539 
-0.983105 
-0.984210 
-0.985278 
-0.985798 
-0.986308 
-0.987301 
-0.988258 
-0.988722 
-0.989177 
-0.990058 
-0.990903 
-0.991311 
-0.991710 
-0.992480 
-0.993212 
' -0.993564 
' -0.993907 
' -0.994565 
-0.995185 
■■ -0.995481 
: -0.995767 
= -0.996313 

■ -0.996820 

■ -0.997060 
•■ -0.997290 

■ -0.997723 



-0.313682 

-0.310767 

-0.307850 

-0.302006 

-0.296151 

-0.293219 

-0.290285 

-0.284408 

-0.278520 

-0.275572 

-0.272621 

-0.266713 

-0.260794 

-0.257831 

-0.254866 

-0.248928 

-0.242980 

-0.240003 

-0.237024 

-0.231058 

-0.225084 

-0.222094 

-0.219101 

-0.213110 

-0.207111 

-0.204109 

-0.201105 

-0.195090 

-0.189069 

-0.186055 

-0.183040 

-0.177004 

-0.170962 

-0.167938 

-0.164913 

-0.158858 

-0.152797 

-0.149765 

-0.146730 

-0.140658 

-0.134581 
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1000000001 
1000000001 
1000000001 
1000000001 
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1000000000 
1000000000' 
1000000000' 
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1000000000" 
1000000000_ 
1000000000_ 
1000000000 
20 1000000001" 
1000000001 
1000000001 
1000000010 
1000000010 
25 1000000010 
1000000011 
1000000011' 
1000000100" 
1000000101" 
30 1000000101" 
1000000110" 
1000000111" 
1000001000" 
1 000001 000_ 
35 1000001001_ 
1000001 01 0_ 
100000101 1_ 
1000001100 
1000001101' 
40 1000001110' 
1000001111" 
1000010001" 
1000010010' 
1000010011" 
45 1000010100" 
1000010110" 
1000010111" 
1000011000" 
1000011010" 
50 1000011011" 
100001 1101_ 
100001 1110_ 
1000100000_ 
1000100010 
55 1000100011 
1000100101 



1111100001 
1111100010 
1111100100 
1111100111 
1111101010 
_1111101100 
.1111101101 
_1 11 11 10000 
_111 11 10011 
_1111110101 
.1111110111 
1111111010 
1111111101 
1111111110 
000000001 1 
0000001000 
0000001101 
0000010001 
0000010110 
0000011011 
000001 1111 
0000100100 
0000101001 
J3000101101 
_0000 110010 
_0000110111 
_0000111100 
0001000000 
0001000101 
0001001010 
0001001110 
0001010011 
0001011000 
0001011100 
0001100001 
0001100101 
0001101010 
0001101111 
0001110011 
0001111000 
_0001111100 
_00 10000001 
_001 00001 10 
_0010001010 
.0010001111 
.0010010011 
.0010011000 
0010011100 
0010100001 
0010100101 
0010101010 
0010101110 
0010110010 
0010110111 
0010111011 
0011000000 



// W1004 
//W1005 
// W1006' 
// W1 008' 
// W1010" 
//W1011" 
//W1012" 

//W1014" 

//W1016" 
//W1017" 
// W1018' 
//W1020 
// W1022 
// W1023" 
// W1026 
// W1029 
//W1032 
//W1035" 
// W1038" 
// W1041" 
// W1044" 
// W1047" 
// W1050" 
// W1053" 
// W1056" 
//W1059" 
// W1062" 
// W1065 
// W1068 
// W1071 
// W1074 
// W1077 
// W1080 
// W1083' 
// W1086" 
// W1089" 
// W1092" 
// W1095" 
// W1098" 
// W1101" 
//W1104" 
//W1107" 
//W1110" 
// W1113" 
// W1116 
//W1119 
// W1122 
//W1125" 
//W1128' 
//W1131" 
// W1134" 
// W1137" 
//W1140" 
//W1143" 
// W1 146" 
// W1 149" 



.2048 
.2048 
2048 
2048 
2048 
2048 
2048 
2048 
2048 
2048 
2048 
_2048 ; 
_2048 • 
.2048 : 
.2048 : 
.2048 : 
2048 = 
2048 = 
2048 = 
2048 = 
2048 = 
2048 = 
2048 = 
2048 = 
2048 = 
_2048 = 
_2048 = 
_2048 = 
.2048 = 
.2048 = 
.2048 = 
.2048 = 
2048 = 
2048 = 
2048 = 
2048 = 
2048 = 
2048 = 
2048 
2048 
2048 
_2048 
_2048 
.2048 
.2048 
2048 
2048 
2048 
2048 
2048 • 
2048 : 
2048 : 
2048 = 
2048 = 
2048 = 
2048 = 



= -0.998118 
= -0.998302 
= -0.998476 
= -0.998795 
= -0.999078 
: -0.999205 
: -0.999322 
: -0.999529 
: -0.999699 
: -0.999769 
; -0.999831 
: -0.999925 
-0.999981 
-0.999995 
-0.999981 
-0.999882 
-0.999699 
-0.999431 
-0.999078 
= -0.998640 
= -0.998118 
= -0.997511 
= -0.996820 
= -0.996045 
= -0.995135 
= -0.994240 
= -0.993212 
= -0.992099 
= -0.990903 
= -0.989622 
= -0.988258 
= -0.986809 
= -0.985278 
= -0.983662 
= -0.981964 
= -0.980182 
= -0.978317 
= -0.976370 
= -0.974339 
= -0.972226 
= -0.970031 
: -0.967754 
: -0.965394 
: -0.962953 
; -0.960431 
-0.957826 
-0.955141 
-0.952375 
-0.949528 
-0.946601 
-0.943593 
-0.940506 
-0.937339 
-0.934093 
-0.930767 
-0.927363 



-0.061321 

-0.058258 

-0.055195 

-0.049068 

-0.042938 

-0.039873 

-0.036807 

-0.030675 

-0.024541 

-0.021474 

-0.018407 

-0.012272 

-0.006136 

-0.003068 

+0.006136 

+0.015339 

+0.024541 

+0.033741 

+0.042938 

+0.052132 

+0.061321 

+0.070505 

+0.079682 

+0.088854 

+0.098017 

+0.107172 

+0.116319 

+0.125455 

+0.134581 

+0.143695 

+0.152797 

+0.161886 

+0.170962 

+0.180023 

+0.189069 

+0.198098 

+0.207111 

+0.216107 

+0.225084 

+0.234042 

+0.242980 

+0.251898 

+0.260794 

+0.269668 

+0.278520 

+0.287347 

+0.296151 

+0.304929 

+0.313682 

+0.322408 

+0.331106 

+0.339777 

+0.348419 

+0.357031 

+0.365613 

+0.374164 
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1000100111 

1000101001_ 
100010101 1_ 
1000101101_ 
5 1000101111_ 
10001 10000_ 
1000110011_ 
1000110101_ 
1000110111_ 
10 1000111001_ 
1000111011, 
1000111101, 
1000111111_ 
1001 00001 0_ 
15 1001000100_ 
10010001 10_ 
1001001001_ 
1001001011_ 
1001001110_ 
20 1001010000_ 
1001010011, 
1001010101_ 
1001011000 
1001011011 
25 1001011101, 
1001100000, 
1001100011 
1001100110" 
1001101001" 
30 1001101011 
1001101110" 
1001110001" 
1001110100" 
1001110111 
35 1001111010 
1001111101 
1010000000 
1010000100" 
1010000111" 
40 1010001010" 
1010001101' 
1010010000" 
1010010100' 
1010010111' 
45 1010011010' 
1010011110 
1010100001 
1010100101 
1010101000 
50 1010101100 
1010101111 
1010110011 
1010110110 
1010111010 
55 1010111110 
1011000001 



0011000100 
0011001000 
0011001101 
0011010001 
0011010101 
0011011001 
0011011110 
0011100010 
0011100110 
0011101010 
0011101111 
0011110011 
0011110111 
0011111011 
"0011111111 
"0100000011 
'0100000111 
"0100001011 
"0100001111 
"0100010011 . 
"0100010111 
0100011011 
"0100011111 
"0100100011 
"0100100111 
"0100101011 
"0100101110 
"0100110010 
"0100110110 
"0100111010 
"0100111101 
"0101000001 
"0101000101 
"0101001000 
10101001100 
_0101010000 
,0101010011 
,0101010111 
0101011010 
"0101011110 
,0101100001 
,0101100100 
,0101101000 
,0101101011 
,0101101110 
,0101110010 
_0101110101 
0101111000 
0101111011 
0101111111 
0110000010 
0110000101 
0110001000 
0110001011 
0110001110 
0110010001 
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//W1 152,2048 = 
// W1 155,2048 = 
// W1 1 58,2048 = 
//W1 161,2048 = 
// W1164_2048 = 
//W1 167,2048 = 
//W1 170,2048 = 
// W1 1 73,2048 = 
//W1 176,2048 = 
//W1 179,2048 = 
// W1 182,2048 = 
//W1 185,2048 = 
'I W1 188,2048 = 
//W1 191,2048 = 
//W1 194,2048 = 
// W1 197,2048 = 
//W1 200,2048 = 
// W1203_2048 = 
//W1 206,2048 = 
//W1 209,2048 = 
//W1 2 12,2048 = 
// W1 21 5,2048 = 
//W1 21 8,2048 = 
// W1 22 1,2048 = 
// W1 224,2048 = 
//W1 227,2048 = 
//W1 230,2048 = 
// W1 233,2048 = 
//W1 236,2048 = 
// W1 239,2048 = 
// W1 242,2048 = 
// W1 245,2048 = 
// W1 248,2048 = 
// W1 251,2048 = 
//W1 254,2048 = 
// W1 257,2048 = 
// W1 260,2048 = 
//W1 263,2048 = 
//W1 266,2048 = 
//W1 269,2048 = 
//W1 272,2048 = 
//W1 275,2048 = 
//W1 278,2048 = 
//W1 28 1,2048 = 
//W1 284,2048 = 
//W1 287,2048 = 
//W1 290,2048 = 
//W1 293,2048 = 
//W1 296,2048 = 
//W1 299,2048 = 
//W1 302,2048 = 
//W1 305,2048 = 
//W1 308,2048 = 
//W1 31 1,2048 = 
//W1 31 4,2048 = 
//W1317 2048 = 



-0.92C380 

-0.920318 

-0.916679 

-0.912962 

-0.909168 

-0.905297 

-0.901349 

-0.897325 

-0.893224 

-0.889048 

-0.884797 

-0.880471 

-0.876070 

-0.871595 

-0.867046 

-0.862424 

-0.857729 

-0.852961 

-0.848120 

-0.843208 

-0.838225 

-0.833170 

-0.828045 

-0.822850 

-0.817585 

-0.812251 

-0.806848 

-0.801376 

-0.795837 

-0.790230 

-0.784557 

-0.778817 

-0.773010 

-0.767139 

-0.761202 

■ -0.755201 
-0.749136 

■ -0.743008 
= -0.736817 
= -0.730563 
: -0.724247 
= -0.717870 
= -0.711432 
: -0.704934 

■ -0.698376 
= -0.691759 
= -0.685084 
= -0.678350 
= -0.671559 
= -0.66471 1 
= -0.657807 
= -0.650847 
- -0.643832 
= -0.636762 
= -0.629638 
= -0.622461 



+0.382683 

+0.391170 

+0.399624 

+0.408044 

+0.416430 

+0.424780 

+0.433094 

+0.441371 

+0.449611 

+0.457813 

+0.465976 

+0.474100 

+0.482184 

+0.490226 

+0.498228 

+0.506187 

+0.514103 

+0.521975 

+0.529804 

+0.537587 

+0.545325 

+0.553017 

+0.560662 

+0.568259 

+0.575808 

+0.583309 

+0.590760 

+0.598161 

+0.605511 

+0.612810 

+0.620057 

+0.627252 

+0.634393 

+0.641481 

+0.648514 

+0.655493 

+0.662416 

+0.669283 

+0.676093 

+0.682846 

+0.689541 

+0.696177 

+0.702755 

+0.709273 

+0.715731 

+0.722128 

+0.728464 

+0.734739 

+0.740951 

+0.747101 

+0.753187 

+0.759209 

+0.765167 

+0.771061 

+0.776888 

+0.782651 
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1011000101_ 
1011001001_ 
1011001100 
1011010000_ 
5 1011010100_ 
1011011000 
1011011100 
1011100000_ 
1011100100_ 
10 1011100111 

1011101011I 

101 11011 1 1_ 

1011110011 

1011110111 

15 1011111011" 
1100000000" 
1100000100" 
1100001000 
1100001100^ 

20 1100010000 
1100010100 
1100011000 
1100011101 
1100100001" 

25 1100100101 
1100101001" 
1100101110" 
1100110010" 
1100110110" 

30 1100111011 
1100111111" 
1101000011" 
1101001000" 
1101001100" 

35 1101010001" 
1101010101" 
1101011001" 
1101011110" 
1101100010" 

40 1101100111" 
1101101011" 
1101110000" 
1101110100" 
1101111001" 

45 1101111110" 
1110000010' 
1110000111" 
1110001011" 
1110010000" 

50 1110010100" 
1110011001" 
1110011110" 
1110100010" 
1110100111' 

55 1110101100' 
1110110000" 



0110010100 
0110010111 
0110011001 
0110011100 
0110011111 
0110100010 
0110100100 
0110100111 
0110101010 
0110101100 
0110101111 
0110110001 
0110110100 
0110110110 
0110111001 
0110111011 
0110111101 
0111000000 
"0111000010 
0111000100 
0111000110 
0111001001 
0111001011 
0111001101 
0111001111 
"0111010001 
"0111010011 
0111010101 
"0111010111 
0111011000 
"0111011010 
"0111011100 
"0111011110 
"0111011111 
'0111100001 
'0111100011 
'0111100100 
0111100110 
"0111100111 
"0111101001 
"0111101010 
"0111101011 
"0111101101 
"0111101110 
0111101111 
"0111110000 
"0111110001 
"0111110011 
"0111110100 
"0111110101 
"0111110110 
"0111110110 
"0111110111 
'0111111000 
"0111111001 
"0111111010 
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// W1 320 


2048 


= 


-0.615232 


+0.788346 


// W1 323 


"2048 


= 


-0.607950 


+0.793975 


// W1 326" 


2048 


— 


-0.600616 


+0.799537 


// W1 329" 


"2048 


s 


-0.593232 


+0.805031 


// W1 332" 


"2048 


_ 


-0.585798 


+0.810457 


// W1 335" 


"2048 


= 


-0.578314 


+0.815814 


// W1 338" 


"2048 


_ 


-0.570781 


+0.821103 


// W1 341" 


"2048 


= 


-0.563199 


+0.826321 


// W1 344" 


"2048 


= 


-0.555570 


+0.831470 


// W1 347" 


"2048 


_ 


-0.547894 


+0.836548 


// W1 350 


"2048 


— 


-0.540171 


+0.841555 


// W1 353_ 


"2048 


— 


-0.532403 


+0.846491 


// W1 356 


"2048 


— 


-0.524590 


+0.851355 


// W1 359" 


"2048 


= 


-0.516732 


+0.856147 


// W1 362" 


"2048 


= 


-0.508830 


+0.860867 


// W1 365" 


"2048 


_ 


-0.500885 


+0.865514 


// W1 368" 


"2048 





-0.492898 


+0.870087 


// W1 371" 


"2048 


— 


-0.484869 


+0.874587 


// W1 374" 


2048 





-0.476799 


+0.879012 


// W1 377" 


2048 





-0.468689 


+0.883363 


// W1 380" 


2048 


_ 


-0.460539 


+0.887640 


// W1 383 


2048 





-0.452350 


+0.891841 


// W1 386" 


"2048 


— 


-0.444122 


+0.895966 


// W1 389" 


"2048 





-0.435857 


+0.900016 


// W1 3S2" 


"2048 


_ 


-0.427555 


+0.903989 


// W1395" 


"2048 





-0.419217 


+0.907886 


// W1 398" 


2048 





-0.410843 


+0.911706 


// W1401" 


2048 





-0.402435 


+0.915449 


// W1404" 


"2048 





-0.393992 


+0.919114 


// W1407" 


"2048 





-0.385516 


+0.922701 


// W1410" 


"2048 





-0.377007 


+0.926210 


// W1413" 


"2048 





-0.368467 


+0.929641 


// W1416" 


"2048 




-0.359895 


+0.932993 


// W1419" 


"2048 





-0.351293 


+0.936266 


// W1422" 


"2048 




-0.342661 


+0.939459 


// W1425" 


2048 




-0.334000 


+0.942573 


// W1428" 


2048 


_ 


-0.325310 


+0.945607 


// W1431" 


2048 


= 


-0.316593 


+0.948561 


//W1434" 


"2048 




-0.307850 


+0.951435 


// W1437" 


"2048 


= 


-0.299080 


+0.954228 


// W1440" 


"2048 


_ 


-0.290285 


+0.956940 


// W1443" 


"2048 




-0.281465 


+0.959572 


// W1446" 


"2048 


= 


-0.272621 


+0.962121 


// W1449" 


2048 


— 


-0.263755 


+0.964590 


// W1452" 


"2048 




-0.254866 


+0.966976 


// W1455] 


""2048 


— 


-0.245955 


+0.969281 


Jilt g _A A mm --v 

// W1458 


"2048 




-0.237024 


+0.971504 


// W1461" 


"2048 


= 


-0.228072 


+0.973644 


// W1464" 


2048 




-0.219101 


+0.975702 


// W1467" 


"2048 


- 


-0.210112 


+0.977677 


// W1470" 


"2048 




-0.201105 


+0.979570 


// W1473 


2048 




-0.192080 


+0.981379 


//W1476' 


"2048 




-0.183040 


+0.983105 


//W1479 


2048 




-0.173984 


+0.984749 


//W1482* 


2048 




-0.164913 


+0.986308 


//W1485* 


2048 




-0.155828 


+0.987784 
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18. 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



1110110101 


0111111010 


// 


W1488 


2048 


- 


-0.146730 


+0.989177 


1110111010 


0111111011 


// 


W1491" 


"2043 


= 


-0.137620 


+0.990485 


1110111110 


0111111100 


// 


W1494" 


2048 


= 


-0.128498 


+0.991710 


1111000011 


0111111100 


// 


W1497" 


"2048 


= 


-0.119365 


+0.992850 


1111001000 


"0111111101 


// 


W1 500" 


"2048 


= 


-0.110222 


+0.993907 


1111001100 


"0111111101 


// 


W1503" 


2048 


= 


-0.101070 


+0.994879 


1111010001 


"0111111110 


// 


W1506" 


2048 


= 


-0.091909 


+0.995767 


1111010110 


"0111111110 


// 


W1 50S" 


"2048 


— 


-0.082740 


+0.996571 


1111011010 


"0111111111 


// 


W1512" 


"2048 




-0.073565 


+0.997290 


1111011111 

1 1 1 1 W 1 1 1 1 1 


0111111111 

\J lllllllll 


// 


W1515" 


2048 

mm V/"t \J 




-0 064383 


+0 99792 5 


1111100100] 


"0111111111 


// 


W1518; 


"2048 




-0.055195 


+0.998476 


1111101000 


f\A A A A A A A A A 

01 11111111 


// 


W1 521 


2043 




-0.046003 


. r\ A Art A A «4 

+0.998941 


1111101101 


"0111111111 


// 


W1524" 


2048 




-0.036807 


+0.999322 


1111110010 


"0111111111 


// 


W1527" 


2048 




-0.027608 


+0.999619 


1111110111 


"0111111111 


// 


W1530" 


2048 




-0.018407 


+0.999831 


1111111011 


"0111111111 


// 


W1533' 


2048 




-0.009204 


+0.999958 










Listing 17 





// 512 point FFT twiddle factor coefficients (Radix 4+2). 

// Coefficients stored as non-fractional 1 0 bit integers (scale 1 ). 

// Real Coefficient (cosine value) is coefficient high-byte. 

// Imaginary Coefficient (sine value) is coefficient low-byte. 



0111111111. 

0111111111. 

0111111111. 

0111111111. 

0111111111. 

0111111111. 

0111111111 

0111111110. 

0111111110 

01111111011 

0111111100, 

0111111011 

0111111010" 

0111111001" 

0111111000" 

0111110111 

0111110110" 

0111110101 

0111110100" 

0111110010" 

0111110001" 

0111101111" 

0111101101" 

0111101100" 

0111101010" 

0111101000" 

0111100110* 

0111100100" 

0111100010' 

0111100000 

0111011110 

0111011011' 



0000000000 

1111111010 

1111110011 

1111101101 

1111100111 

1111100001 

1111011010 

'1111010100 

'1111001110 

'1111001000 

'1111000001 

'1110111011 

'1110110101 

'1110101111 

'1110101000 

'1110100010 

"1110011100 

'1110010110 

'1110010000 

'1110001010 

'1110000100 

"1101111110 

"1101110111 

"1101110001 

"1101101011 

"1101100101 

"1101011111 

"1101011001 

"1101010100 

"1101001110 

"1101001000 

"1101000010 



// vvoooo 

//W0001. 
// W0002. 
// W0003 
// W0004" 
// W0005_ 
// W0006_ 
// W0007 
// W0008" 
// W0009" 
//W00 10" 
//W0011" 
//W0012" 
//W0013" 
//W0014" 
//W0015" 
//W0016" 
//W0017" 
//W00 18" 
//W00 19" 
// W0020" 
//W0021" 
// W0022" 
// W0023" 
// W0024' 
// W0025' 
// W0026" 
// W0027' 
// W0028" 
// W0029' 
// W0030' 
//W0031- 



0512 = 
0512 = 
0512 = 
0512 = 
0512 = 
0512 = 
0512 = 
0512 = 
0512 : 
0512 ■ 
0512 s 
"0512 : 
0512 : 
'0512 : 
'0512 = 
'0512 : 

'0512 : 
"0512 : 
'0512 : 

'0512 •■ 

"0512 

"0512 

"0512 

"0512 

"0512 

"0512 

"0512 

"0512 

"0512 

"0512 

"0512 

"0512 



+ 1.000000 
+0.999925 
+0.999699 
+0.999322 
+0.998795 
+0.998118 
+0.997290 
+0.996313 
+0.995185 
+0.993907 
+0.992480 
+0.990903 
+0.989177 
+0.987301 
■■ +0.985278 
> +0.983105 
= +0.980785 
= +0.978317 
= +0.975702 

■ +0.972940 
= +0.970031 
■■ +0.966976 
= +0.963776 

■ +0.960431 

■ +0.956940 

■ +0.953306 

■ +0.949528 
= +0.945607 
= +0.941544 

■ +0.937339 
= +0.932993 
= +0.928506 



-0.000000 

-0.012272 

-0.024541 

-0.036807 

-0.049068 

-0.061321 

-0.073565 

-0.085797 

-0.098017 

-0.110222 

-0.122411 

-0.134581 

-0.146730 

-0.158858 

-0.170962 

-0.183040 

-0.195090 

-0.207111 

-0.219101 

-0.231058 

-0.242980 

-0.254866 

-0.266713 

-0.278520 

-0.290285 

-0.302006 

-0.313682 

-0.325310 

-0.336890 

-0.348419 

-0.359895 

-0.371317 
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W 9410 



01! ;011001_1100111100 
O111010111_1100110110 
0111010100_1100110001 
0111010001_1100101011 
5 01 11001 11 1_1100100101 
011 1001 100_1100011111 
0111001001_1100011010 
011 10001 10_1 100010100 
0111000100_1100001111 

10 01 11000001_1 100001001 
0110111101_1100000100 
01 1011 1010_10111111 10 
0110110111_1011111001 
0110110100_1011110011 

15 0110110001_1011101110 
0110101 101_101 1101001 
0110101010_1011100100 
0110100110_1011011110 
0110100011_1011011001 

20 O110011111_1011010100 
0 1 1 001 1 01 1 _1 01 1 001 111 
0110010111_1011001010 
O110010100_1011000101 
01 1 001 0000_101 1 000000 

25 0110001100_1010111011 
0110001000_1010110110 
01 10000100_10101 10010 
0110000000_1010101101 
0101111011_1010101000 

30 0101110111_1010100100 
0101110011_1010011111 
0101101110_1010011010 
0101101010_1010010110 
0101100110_1010010010 

35 0101100001_1010001101 
010101 1100_1010001001 
010101 1000_1010000101 
010101001 1_1010000000 
0101001110_1001111100 

40 0101001010_1001111000 
0101000101_1001110100 
0101000000_1001 1 10000 
0100111011_1001101100 
0100110110_1001101001 

45 01001 10001_1001 100101 
0100101 100_1001 100001 
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+0.313682 

+0.348419 

+0.382683 

+0.416430 

+0.449611 

+0.482184 

+0.514103 

+0.545325 

+0.575808 

+0.605511 

+0.634393 

+0.662416 

+0.689541 

+0.715731 

+0.740951 

+0.765167 

+0.788346 

+0.810457 

+0.831470 

+0.851355 

+0.870087 

+0.887640 

+0.903989 

+0.919114 

+0.932993 

+0.945607 

+0.956940 

+0.966976 

+0.975702 

+0.983105 

+0.989177 

+0.993907 

+0.997290 

+0.999322 
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Listing 18 

/*FOLDBEGiNS 0 0 "Copyright"*/ 

Copyright (c) Pioneer Digital Design Centre Limited 



NAME: pilloc_rtl.v 

10 

PURPOSE: Pilot location 
CREATED: June 1997 BY: T. Foxcroft 
15 MODIFIED: 

USED IN PROJECTS: cofdm only. 



20 /*FOLDENDS*/ 

/*FOLDBEGINS 0 0 "Defines"*/ 

'define FFTSIZE 2048 

"define DATABINS 1705 

* define SCATNUM 45 
25 'define SCALEFACTOR64Q 3792 //3x8192/sqrt(42) 

'define SCALE FACTOR 16Q 3886 //3x8192/sqrt(10)*2 

'define SCALEFACTORQPS 2172 //3x8192/sqrt(2)*8 

'define AVERAGESF 12'hc49 //0.04x4096x32768/1705 = 3145 

/*FOLDENDS*/ 

30 module chanest (elk, resync, in_valid, in_data, constellation, 

u_symbol, us_pilots, uc_pilots, ct_p'ilots, out_tps, tps_valid, 
uncorrected_iq, 

out_vaiid, outi, outq, c_symbol, incfreq, wrstrb. ramindata, 
ramoutdata, ramaddr); 
35 /*FOLDBEGINS 0 0 "i/o"V 

input elk, resync, in_valid; 

input [23:0] in_data; 

input [1:0] constellation; 

output u_symbol; 
40 output us_pilots, uc_pilots, ct_pilots; 

output out_tps, tps_valid; 

output [23:0] uncorrected_iq; 

output out_valid; 

output [7:0] outi; 
45 output [7:0] outq; 

output c_symbol; 

output incfreq; 

output wrstrb; 

output [23:0] ramindata; 
50 input [23:0] ramoutdata; 

output [10:0] ramaddr; 

/*FOLDENDS*/ 

TFOLDBEGINS 0 0 'TPS location "*/ 
55 reg [10:0] tpsloc; 
reg [4:0] tpscount; 
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always @(tpscount) 
begin 

case(tpscount) 

5'bOOOOO: tpsloc = 34; 
5 5'bOOOOI: tpsloc = 50; 

5'b00010: tpsloc = 209; 

5'b00011: tpsloc = 346; 

5'b00100: tpsloc = 413; 

5'b001C1: tpsloc = 569; 
10 5'bO0 110: tpsloc = 595; 

5'b00111: tpsloc = 688; 

5'b01000: tpsloc = 790; 

5'b01001: tpsloc = 901; 

5'b01010: tpsloc = 1073; 
15 5'b01 011: tpsloc = 1219; 

5'b01 100: tpsloc = 1262; 

5*b01101: tpsloc = 1286; 

5*b01110: tpsloc = 1469; 

5'b01 111: tpsloc = 1594; 
20 default: tpsioc = 1687; 

endcase 
end 

/*FOLDENDS*/ 

/•FOLDBEGINS 0 0 "continuous pilot location"*/ 
25 reg [10:0j contloc; 

reg [5:0] contloccount; 
always @(contloccount) 
begin 

case(contloccount) 
30 6'bOOOOOO: contloc = 0; 

6*b000001: contloc = 48; 

6'b000010: contloc = 54; 

6'bOOOOH: contloc = 87; 

6'b000100: contloc = 141; 
35 6'bOO0 1 0 1 : contloc = 1 56 ; 

6'b0001 10: contloc = 192; 

6*b000111: contloc = 201; 

6*b001000: contloc = 255; 

6'b001001: contloc = 279; 
40 6'b001010: contloc = 282; 

6'b001011: contloc = 333; 

6'b001 1 00: contloc = 432; 

6'b001101: contloc = 450; 

6'b001 1 10: contloc = 483; 
45 6'bO0 1111: contloc = 525; 

6'b010000: contloc = 531; 

6'b0 10001: contloc = 618; 

6'b01 0010: contloc = 636; 

6^010011: contloc = 714; 
50 6'b01 01 00: contloc = 759; 

6'b010101: contloc = 765; 

6*b010110: contloc = 780; 

6'b010111: contloc = 804; 

6'b01 1 000: contloc = 873; 
55 6'b01 1001 : contloc = 888; 

6'b011010: contloc = 918; 
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6'b011011: 


contloc 


= 


939; 


I 


6'bOmOO: 


contloc 




942; 


I 

I 


6'b011101: 


contloc 


= 


969; 


I 

I 


6'b011110: contloc 




984; 


5 


6'b011111: 


contloc 


— 


1050; 




6'b100000: 


contloc 


= 


1101; 




6'b1 00001: 


contloc 


— 


1107; 




6'b100010: 


contloc 


= 


1110; 




6'b100011: 


contloc 


— 


1137; 


10 


6'b100100: contloc 


= 


1140; 




6'b100101: 


contloc 




1146; 




6'blOOIIO: 


contloc 




1206; 




6'b100111: 


contloc 




1269; 




6'b101000: contloc 




1323; 


15 


6'b101001: 


contloc 




1377; 




6'b101010: contloc 




1491; 




6'b101011: 


contloc 




1683; 




default: contloc = 1704; 




endcase 









20 end 



/*FOLDENDS7 

TFOLDBEGINS 0 0 "continuous pilot location"*/ 
/*reg [10:0] contloc [44:0]; 
reg [5:0] contloccount; 
25 initial 
begin 

contloc[0]= 0; contloc[1]= 48; contloc[2] = 54; contloc[3] = 87; contloc[4] = 141; 
contloc[5]= 156; contloc[6] = 192; contloc[7J = 201 ; contloc[8] = 255; contloc[9] = 
279, 

30 contloc[10] = 282; contloc[11] 
contloc[14] = 483; 
contloc[15] = 525; contloc[16] 
contloc[19] = 714; 
contloc[20] = 759; contloc[21] 
35 contloc[24] = 873; 

contloc[25] = 888; contloc[26] 
contloc[29] = 969; 
contloc[30] = 984; contloc[31] 
contloc[34] = 1110; 
40 contloc[35] = 1137; contloc[36] 
contloc[39] = 1269; 
contioc[40] = 1323; contloc[41] 
contloc[44] = 1704; 
end */ 
45 /*FOLDENDS7 

TFOLDBEGINS 0 0 "Control vars"*/ 
reg [1:0] constell; 
reg resynch; 

reg Valid,valid0,valid1,valid2,vaiid3,valid4,valid5,valid6,valid7,valid8- 
50 reg [1:0] whichsymbol; 

reg [1:0] pwhichsymbol; 

reg incwhichsymbol; 

reg [23:0] fftdata; 

reg [10:0] fftcount; 
55 reg [10:0] tapcount; 

reg [3:0] count12; 



= 333; contloc[12] = 


432; contloc[13] = 


450; 


= 531; contloc[17] = 


618; contloc[18] = 


636; 


= 765; contloc[22] = 


780; contloc[23] = 


804; 


= 918; contloc[27] = 


939; contloc[28] = 


942; 


= 1050; contloc[32] = 


1101; contloc[33] = 


1107; 


= 1140; contloc[37] = 


1146; contloc[38] = 


1206; 


= 1377; contloc[42] = 


1491; contloc[43] = 


1683; 
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reg [3:0] dcount12; 
reg ramdatavalid; 
reg tapinit; 
reg tapinitl ,tapinit2; 
5 reg [7:0] nscat; 
reg pilot; 

reg tapload; //controls when the taps are loaded 
reg tapioad2; 
reg shiftinnewtap; 
10 regfiltgo; 

rFOLDENDS*/ 

TFOLDBEGINS 0 0 "Channel Est vars"*/ 

reg [11:0] tapi [5:01; 

reg [11:0] tapq [5:0]; 
15 reg [27:0] sumi; 

reg [27:0] sumq; 

reg [1 1:0] chani; 

reg [11:0] chanq; 

wire [27:01 chani_; 
20 wire [27:0] chanq_; 

reg [11:0] idata; 

reg [1 1:0] qdata; 

/*FOLDENDS*/ 

TFOLDBEGINS 0 0 "RAM vars"*/ 
25 reg [10:0] ramaddr; 

reg [10:0] piiotaddr; 

wire [10:0] ramaddr_; 

wire [10:0] ramaddrrev_; 

reg [23:0] ramindata; 
30 wire [23:0] ramoutdata; 

reg [23:0] ramout; 

reg [23:0] ramot; 

reg wrstrb; 

reg rwtoggle; 
35 reg framedata, framedataO; 

reg frav, firstfrav; 

reg [23:0] avchannel; 

reg [1 1 :0] avchan; 

reg avlow; 
40 wire [23:0] avchanj 

RFOLDENDS*/ 

/*FOLDBEGINS 0 0 "Channel calc vars"*/ 
reg chan_val; 

reg chan^valO.chan^val^chan^a^^han^valS^han^vaW.out^vaiid; 
45 reg [23:0] sum; 

reg [11:0] sumsq; 

reg [1 1 :0] sumsqtemp; 

reg [1 1 :0] topreal; 

reg [1 1:0] topimag; 
50 reg [7:0] outi; 

reg [7:0] outitemp; 

reg [5:0] outitem; 

reg [7:0] outq; 

reg [10:0] prbs; 
55 //integer intsumi, intsumq,intsumsq,intouti,intoutq; 

TFOLDENDS*/ 



BNSDOCID: <WO 9819410A2_!_> 



WO 98/19410 



TFOLDBEGINS 0 0 "uncorrected pilot vars"*/ 
reg u_symbol; 
reg us_pilots; 
reg u copilots; 
5 reg [23:0] uncorrected jq; 
reg [2:0] tps_piiots; 
reg [5:0] tpsmajcount; 
wire [5:0] tpsmajcount_; 
reg ct_pi!ots; 
10 reg out_tps, tps_vaiid; 
reg [1:0] pilctdata; 
rFOLDENDS*/ 

TFOLDBEGINS 0 0 "pilot locate vars"*/ 

wire [1:0] which_symbol; 
15 wire [10:0] cpoffset; 

wire [10:0] pilotramaddr_; 

wire [23:0] pilotramin_; 

wire pitotwrstrb_; 

wire found_pilots; 
20 reg pilotlocated; 

/*FOLDENDS*/ 

TFOLDBEGINS 0 0 "sync function arrays"*/ 
reg [11:0] syncO; 
25 reg [11:0] synd; 
reg [1 1:0] sync2; 
reg [3:0] syncoffset; 

always @(dcount12 or valid 1 or valid2) 
begin 

30 if (valid 1 | j valid2) 

syncoffset = 4'hc-dcount1 2; 
else 

syncoffset = dcount12; 
/*FOLDBEGINS 0 2 ""*/ 
35 case(syncoffset) 



4046; synd = 272; sync2 = 95; 



3899; synd = 476; sync2 = 168; 



3661; synd = 614; sync2 = 217; 



3344; synd = 687; sync2 = 243; 



2963; synd = 701; sync2 = 248; 



4 ( h1: 

begin 

syncO 
end 

40 4 f h2: 
begin 
syncO 
end 
4'h3: 

45 begin 
syncO 
end 
4'h4: 
begin 

50 syncO 
end 
4 f h5: 
begin 
syncO 

55 end 
4'h6: 
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10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



begin 

syncO = 2534; synd = 665; sync2 = 234; 

end 

4'h7: 

begin 

syncO = 2076; synd = 590; sync2 = 205; 

end 

4'h8: 

begin 

syncO = 1609; synd = 486; sync2 = 167; 

end 

4'h9: 

begin 

syncO = 1152; synd = 364; sync2 = 123; 

end 

4'ha: 

begin 

syncO = 722; synd = 237; sync2 = 78; 

end 

default 

begin 

syncO = 334; synd = 113; sync2 = 36; 
end 

endcase 
/*FOLDENDS*/ 

end 

/*FOLDENDS*/ 
always @(posedge elk) 
begin 

TFOLDBEGINS 0 2 "Control "*/ 
constell <= constellation; 
resynch <= resync; 
if(resynch) 
begin 

TFOLDBEGINS 0 2 



V 



valid 

validO 

valid 1 

valid2 

valid3 

valid4 

valid5 

valid6 

valid7 

valid8 

fftcount 



<= 1'b0; 
<= 1"b0; 
<= 1'b0; 
<= 1'b0; 
<= 1'b0; 
<= 1'b0; 
<= 1'b0; 
<= 1'b0; 
<= 1'b0; 
<= 1'b0; 
<= 11"b0; 



ramdatavalid <= 1'b0; 

chan_val <= 1'b0; 

tapinit <= 1'b0; 

tapinitl <= 1'bO; 

tapinit2 <= 1'bO; 

rwtoggle <= 1'bO; 

TFOLDENDS*/ 
end 
else 
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b igin 

TFOLDBEGINS 0 2 ""*/ 
valid <= in_valid; 
validO <= valid&&pilotlocated; 
5 valid 1 <= vaiidO; 

valid2 <= valid 1; 
valid3 <= vaiid2; 
vaiid4 <= vaiid3; 
valid5 <= valid4; 
10 valid6 <= validS; 

valid7 <= valid6; 
valid8 <= valid7; 
if(valid2) 

1 5 fftcount <= fftcount + 1 f b1 ; 

chan_val <= vaiid4&&fiitgo&&framedata; 
incwhichsymbol <= valid 1&&(fftcount ='(TFTSI2E-1)); 
if(incwhichsymbol) 
begin i 

20 rwtoggle <= Irwtoggle; 

tapinit <= 1'bl; 
ramdatavalid <= 1'b1; 
end 

else if(valid6) 
25 tapinit <= 1'bO; 



tapinitl <= tapinit; 
tapinit2 <= tapinitl; 
30 /*FOLDENDS*/ 
end 

fftdata <= in_data; 

/*FOLDBEGINS 0 0 "frame averager*/ 
if(resynch) 
35 begin 

frav <= rbO; 

firstfrav <= rbO; 
end 
else 
40 begin 

if(chan_val&&framedata) 

frav <= rb1; 

else if(!framedata&&framedataO) 
frav<= rbO; 
45 if(chan_yal&&framedata&&!frav) 
firstfrav <= 1'b1; 
else if(chan_val) 
firstfrav <= 1'b0; 

TFOLDBEGINS 0 2 "calculate 0.2 x mean channel amplitude"*/ 
50 if(chan_val0) 
begin 

if(firstfrav) 
begin 

avchannel <= avmult(sumsqtemp); 
55 avchan <= avchan_[11:0]; 

end 
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else 

avchanne! <= avmult(sumsqtemp) + avchannei; 
end 

/*FOLDENDS*/ 
5 if(chan_yal1) 

aviow <= (sumsqtemp<avchan)? 1:0; 

end 

TFOLDENDSV 
10 if(resynch) 
begin 

framedata <= 1'bO; 

framedataO <= 1'bO; 
15 tapload <= rbO; 

end 
else 
begin 

framedataO <= framedata; 
20 if(inewhichsymbol&&(cpoffset==0)) 
framedata <= 1 ; 

else if(ramdatavalid&&valid2&&(fftcount == (cpoffset - 1))) 
framedata <= 1; 

else if(valid2&&(fftcount == (cpoffset + 'DATABINS))) 
25 framedata <= 0; 

tapload <= framedata; 

end 

filtgo <= ramdatavalid&&( valid2? tapload : filtgo); 
tapload2 <= valid&&tapioad&&(count12==1 1)&&(fftcount!=0); 
30 pilot <= (count12==0); 

dcount12 <= count12; 

shiftinnewtap <= !((nscat == 1 39) | |(nscat == 140)| |(nscat == 141)); 

if(incwhichsymbol) 
35 begin 

if(!ramdatavalid) 
begin 

whichsymbol <= pwhichsymbol; 

tapcount <= pwhichsymboI*2'b11 + cpoffset; 
40 end 
else 
begin 

whichsymbol <= whichsymbol + 1'b1; 

tapcount <= {whichsymboHlfwhichsymboltOJ.lwhichsymbolIOU^'bl 1 
45 cpoffset; 
end 
end 
else 

if(framedata) 
50 begin 

if(fftcount==cpoffset) 
begin 

/*FOLDBEGINS 0 4 "set up the counters"*/ 
//count12 <= ((4-whichsymbol)&4 , b0011)*3; 
55 count12 <= {whichsymbolIirwhichsymboltOl.whichsymbolfO^bll; 
if(valid0) 
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nscat <= 8'bO; 
/*FOLDENDS*/ 

end 

else 
5 begin 

/*FOLDBEGINS 0 4 ""*/ 

if(valid) 

begin 

count12 <= (count12==11)? 4'bO : count12 + 1'b1; 
10 tapcount <= tapcount + 1'b1; 

if(count12==11) 

nscat <= nscat + 1'b1; 
end 

15 /*FOLDENDS*/ 
end 

end 
else 
begin 

20 if(tapinit2&&valid5) 
nscat <= 8'bO; 
if(tapinit) 
begin 

if(valid3j jvalid4| |valid5&&(whichsymbol==2'b0)) 
25 tapcount <= tapcount + 4'hc; 

else 

if(valid6) 

tapcount <= tapcount + 

{whichsymbol[1] A whichsymbol[0],whichsymbol[0]}*2'b11 + 1'b1 
30 end 
end 

/*FOLDENDS*/ 
/*FOLDBEGINS 0 2 "Channel Estimation"*/ 
if(tapinit2) 
35 begin 

/*FOLDBEGINS 0 4 "Read in first 3 or 4 taps"*/ 
if(valid5) 

prbs <= alpha12(alpha(whichsymbol)); 
else 

40 if(vaiid6| |valid7| ((valid 8&&(whichsymbol==2*b0))) 

prbs <= alpha 12(prbs); 
if(valid5) 
begin 

tapi[0] <= pseudo(ramout[23:12],rb1); 
45 tapi[1] <= pseudo(ramout[23:12],1'b1); 

tapi[2] <= pseudo(ramout[23:12],1'b1); 

tapi[3] <= pseudo(ramout{23:12],1'b1); 

tapq[0] <= pseudo(ramout[11:0], 1'b1); 

tapq[1] <= pseudo(ramout[11:0], 1'b1); 
50 tapq[2] <= pseudo(ramout[1 1 :0], 1 'b1 ); 

tapq[3] <= pseudo(ramout[11:0], 1'b1); 
end 

else if( !((whichsymbol!=2'b0)&&valid8» 
begin 

55 tapi[5] <= tapi[4]; 

tapi[4] <= tapi[3]; 
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tapi[3] <= tapi[2j; 
tapi[2] <= tapi[1]; 
tapi[1] <= tapi[0]; 

tapifO] <= pseudo(ramout[23:12],prbs[0]); 
5 tapq[5] <= tapa[4]; 

tapq[4] <= tapq[3]; 
tapq[3] <= tapq[2]; 
tapq[2] <= tapq[1]; 
tapq[1] <= tapqfO]; 
10 tapq[0] <= pseudo(ramout[1 1 :0],prbs[0]); 

end 

TFOLDENDS*/ 
end 

15 else if(framedata) 

begin 

TFOLDBEGINS 0 4 "update taps in normal op"*/ 

if(tapload2) 

begin 

20 ~ prbs <= alpha12(prbs); 

tapi[5] <= tapi[4]; 
tapt[4] <= tapi[3j; 
tapi[3] <= tapi[2]; 
tapi[2] <= tapi[1]; 
25 tapi[1] <= tapi[0]; 

if(shiftinnewtap) 

tapi[0] <= pseudo(ramout[23:12],prbs[0]); 
tapq[5] <= tapq[4]; 
tapq[4] <= tapq[3]; 
30 tapq[3] <= tapq[2j; 

tapq[2] <=tapq[1]; 
tapq[1]<=tapq[0]; 
if(shiftinnewtap) 

tapq[0] <= pseudo(ramout[1 1 :0],prbs[0]); 
35 end 

TFOLDENDS*/ 
TFOLDBEGINS 0 4 "Channel interpolate"*/ 
if(pilot) 
begin 

40 if(vaiid4) 
begin 

chani <= tapi[3]; 

chanq <= tapq[3]; 
end 

45 if(valid3) 
begin 

idata <= ramot[23:12]; 
qdata <= ramot[11:0]; 
end 

50 end 
else 
begin 
if(validl) 
begin 

55 sumi <= mult(tapi[0],sync2) - mult(tapi[1],sync1); 

sumq <= mult(tapq[0],sync2); 
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end 

else if(valid2) 
begin 

sumi <= sumi + mult(tapi[2],sync0); 

5 end Umq <= SUmq + mult(tapq ^' s y nc °) " mult(tapq[1],sync1); 

else if(valid3) 
begin 

10 sumi <= sumi + mult(tapi[3],syncO) - mult(tapi[4],sync1)- 

sumq<= sumq + mult(tapq[3] t sync0) + 12*h800; //2048 for final round- 
ing 

idata <= ramotf23:12]; 
qdata <= ramot[1 1 :0]; 
15 end 

else if(vafid4) 
begin 

chani <= chani_[23:12]; 
chanq <= chanq_[23:12]; 
20 end 
end 

//intsumi = (chani[11]>? {20 , hfffff,chani[11:0]}:chani- 
//intsumq = (chanq[11])? {20'hfffff,chanq[11:0]}:chanq; 
//if(chan_val) $display(intsumi*intsumi+intsumq*intsumqV 
25 /*FOLDENDS*/ 
end 
end 

assign chani_ = sumi + mult(tapi[5],sync2) + 12'h800; 

assign chanq_ = sumq + mult(tapq[5],sync2) - mult(tapq[4],sync1 V 
30 assign avchan_ = avchannel + 24'h000800* 

TFOLDENDSV 
TFOLDBEGINS 0 2 "Calculate channel"*/ 
always @(posedge elk) 
begin 

35 if(resynch) 
begin 

chan_vaI0 <= 1'b0; 

chan_val1 <= 1'b0; 

chan_va!2 <= 1'b0; 
40 chan_val3 <= 1*b0; 

chan_val4 <= VbO; 

out_valid <= rbO; 
end 
else 

45 begin 

chan_val0 <= chan__val; 

chan_val1 <= chan_val0; 

chan_vaI2 <= chan_val1 ; 

chan_val3 <= chan_val2; 
50 chan_val4 <= chan_yal3; 

//out_yalid <= chan_val4; 

out_valid <= chan_val4&&ramdatavalid&&!pilotdata[1]; 
end 

if(chan_val) 
55 sumsqtemp <= sum[22: 1 1 ]; 

if(chan_val0) 
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topreal <= su:-. _3: ; it \ 
if(chan_val1) 
topimag <= sum[23:12]; 
if(chan_val2) 
5 sumsq <= sum[23:12]; 

if(chan_vaI3) 
begin 

outitemp <= divider(topreal 1 sumsq,(consteli==0)); 
10 outitem <= divplussoft(topreal,sumsq,consteil); 

end 

if(chan_val4) 
begin 

outq <= divide^topimag^umsq^constel^O)); 
15 outi <= outitemp; 

end 

//intouti = (outi[7])? {24'hffffff,outi[7:0]}:outr 
//intouiq = (outq[7])? {24'hffffff T outq[7:0]}:outq; 
//if(chan val&&ramdatavalid) Sdisplay(intsumi); 
20 //if(chanlva(4&&ramdatavalid) $displayb(outitemp„ outitem); 

end 

always @(chanj/al or chan_val0 or chan_vat1 or chani or chanq or constei! 
or idata or qdata or sumsqtemp) 
begin 

25 if(chan_val) 

sum = smult(chani,chani,1) + smult(chanq t chanq,1) + 24'h000400; 
else if(chan_val0) 

sum = smult(idata,chani,1) + smu!t(qdata,chanq,1) + 24'h000800; 
else if(chan_val1) 

30 sum = smult(qdata,chani,1) - smult(idata,chanq,1) + 24'h000800; 

else //chan_val2 
begin 

case(constell) 

2'bOO: 

35 sum = smuit(sumsqtemp/SCALEFACTORQPS,0) + 24'h0008Q0; 

2'bOi: 

sum = smult(sumsqtemp/SCALEFACTOR16Q,0) + 24 , h000800; 
default: 

sum = smult(sumsqtemp/SCALEFACTOR64Q,0) + 24'h000800; 
40 endcase 
end 
end 

TFOLDENDS*/ 

/*FOLDBEGINS 0 2 "Extract Continual and scattered pilots for Freq + Sampling Error 
45 Block"*/ 

always @(posedge elk) 
begin 

if(resynch) 

contloccount <= 6'b0; 
50 else 

if(ramdatavalid&&valid2&&(pilotaddr==contloc)) 

contloccount <= (contloccount == 44)? 6'b0 : contloccount + Vb1; 
if(ramdatavalid&&valid2&&((pilotaddr==contloc) 1 1 pilot)) 
uncorrected_iq <= ramot; 
55 uc_pilots <= 

ramdatavalid&&framedata&&(pilotaddr==contloc)&&valid2&&!resynch; 
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us_pilots <= ramdatavaiid&&framedata&&pilot&&valid2&&!resynch; 
u_symbol <= !resynch&&ramdatavalid&&(vaiid2? (piiotaddr==0) : u_symbol)' 
//$dispiay(pilotaddr,jamot[23^ iq[ 
23:12]„uncorrectedjq[11:0] f ,uc - pilots l> us_pilots); 

5 

end 

TFOLDENDSV 
TFOLDBEGINS 0 2 "Extract TPS pilots "*/ 
always @(posedge elk) 
10 begin 

if(resynch) 
begin 

tpscount <= 5'b0; 

tps_pilots <= 3'b0; 
15 tps_valid <= rbO; 

copilots <= rbO; 
end 
else 
begin 

20 ift ramdatavalid&&valid2&&(pilotaddn==tpsloc)) 

tpscount <= (tpscount[4])? 5'b0 : tpscount + 1'b1; 

tps_pilots[0]^<= valid2? ramdatavalid&&framedata&&(pilotaddr==tpsloc) : 

tps_pilots[1] <= (chan_val? tps_pilots[01 : tps pilotsMiy 
25 tps_pilots[2] <= tps_pilots[1]&&chan_va!3; 

tps_vaiid <= (tpscount==0)&&tps__pilots[2]; 
ct_pilots <= tps_pi!ots[2]; 
end 

if(resynch) 
30 tpsmajcount <= 6'bO; 

else 
begin 

if(tps_pilots[2]) 
begin 

35 if(tpscount— 0) 

begin 

tpsmajcount <= 6'bO; 
out_tps <= tpsmajcountJS]; 

end 

40 else 

tpsmajcount <= tpsmajcount^; 
end 

end 

if(resynch) 
45 pilotdata <= 2'bO; 

else 
begin 
if(vaiid2) 

pilotdata[0] <= ramdatavalid&&framedata&&( 
50 (pilotaddr==tpsloc) 1 1 

(pilotaddr==contloc)|| 
pilot 

); 

pilotdata[1] <= chan_val0? pilotdata[0] : pilotdataM]* 
55 end 
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//Sdisplay(piL addr^ramotfZSi^j^validZ^contloccount.uncorrectedJqP 
, 3:12],, uncorrected Jq[11:0] tt uc_pilots t ,us__pilots); 

//$display(valid2,,piiotdata^ 
i ,,out_valid„pilotaddr); 
5 end 

assign tpsmajcount_ = tps(topreal[1 13,tpscount,tpsmajcount); 
TFOLDENDS*/ 

TFOLDBEGINS 1 2 "pilot locate control *'*/ 
10 always @(posedge elk) 
begin 

if(resynch) 
pilotlocated <= rbO; 
else 

15 if(found_pilots) 
begin 

pilotlocated <= 1'b1; 

pwhichsymbol <= which_symboi + 2'b10; 
end 

20 end 

TFOLDENDS*/ 
TFOLDBEGINS 0 2 "RAM"*/ 
always @(posedge elk) 
begin 

25 if(pilotiocated) 
begin 

wrstrb <= ivalidO; 
if(valid) 

ramindata <= fftdata; 
30 pilotaddr <= ramaddr_ - cpoffset; 

ramaddr <= rwtoggle? ramaddr_ : ramaddrrev_; 
if(valid5) ramot <= ramout; 

end 
else 

35 begin 

TFOLDBEGINS 0 4 m, V 

wrstrb <= pilotwrstrb_; 

ramindata <= pilotramin_; 

ramaddr <= pilotramaddr_; 
40 TFOLDENDS*/ 
end 

ramout <= ramoutdata; 
end 

assign ramaddr_ = (tapinit| iframedata&&(valid2&&(count12==1 1)))? tapcount : 
45 fftcount; 

assign ramaddrrev_ = 

{ramaddrJ0] f ramaddrJ1] ( ramaddrJ2],ramaddrJ3],ramaddrJ4],ramaddrJ5] t 

ramaddr_[6],ramaddr_[7],ramaddrJ8],ramaddr [9], ramaddr [10]}; 
50 TFOLDENDS*/ " 

assign c_symbol = whichsymbol[0]; 

TFOLDBEGINS 0 0 ""*/ 
always @(posedge elk) 
55 begin 
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//$display(chan_val ) ,framedata„frav„firstfrav,, 1 ,valid2 I ,valid4„out valid 

„avchannel,,avchan,,sumsqtemp,,,avlow,,chan_val1 )• 

//$display(tps_valid,,out_tps„tpscount„tps_pilots[2j) " ' 

//$displa^y(in_data, l filtgo,,valid4,,tapload,,,nscat,,count12 )l fftcount,,incw 
5 hichsymbol,,, 

//tapcount,,ramaddr,,wrstrb„rwtogqle 

//); 

//(resynch,,vaiid„fftcount„ramaddr M ramindata[23:12]„ramoutdata[23-12l t 

apinit, ,tapinit2, .tapcount, ,ramout[23: 1 2] 
10 //tapi[0]„tapi[1]„tapi[2]„tapi[3]„tapi[4]„tapi[5]); 

//$display(tapcount„tapinit2„valid4„vaiid„valid2„wrstrb„fftcount„fram 

edata„count12 I ,tapi[0]„tapi[1]„tapi[2]„tapi[3]„tapi[4]„tapi[5]); 

//$disp!ay(, I „intouti,,intoutq„out_valid„.,va!id4,,valid2„chan val fiit 

go„framedata„fftcount„ramindata[23:12]); 
15 //if(whichsymbol==1) 

$dispiay(tapinit, > tapcount„mcount„ramindata[23:12]„„tapcount„tapi[0] 
, tapi[1] .,tapi[2]„tapi[3]„tapi[4]„tapi[5]„intsumi„intsumq„idata„qda ta); 
//$display(framedata„pilotaddr,,fftcount„tapcount„ramaddr„ramout[23:12] 
ramindata[23:12].,prbs, ,us_pilots.,uc_pilots„ct pilots„out valid,„contl occount,, 
20 //tps_pilotsi0]„tps_pilots[1]„tps_pilots[2]); j 
end 

/*FOLDENDS*/ 

pilloc pilloc (.clk(clk), .resync(resync), .in_valid(in_valid), .in data(in data) 

.found_pilots(found_pilots), .which_symbol(which_symbol),~ 
25 xpoffset(cpoffset), .incfreq(incfreq), 

.ramaddr(pilotramaddrJ , .ramin(pilotramin _), .ramout(ramout), 
.wrstrb(pilotwrstrb )); 

/*FOLDBEGINS 0 2 "functions"*/ 

TFOLDBEGINS 0 0 "tps demod "V 
30 function [5:0] tps; 

input tpssign; 

input [4:0] tpscount; 

input [5:0] tpsmajcount; 

reg tpsflip; 
35 begin 

case(tpscount) 

5'b00001 ,5'b0001 1 ,5"b001 00,5'b001 1 0,5'b01 01 1 ,5'b01 1 1 0: 
tpsflip = 0; //added 1 since tpscount already incremented 
default: 
40 tpsflip = 1 ; 

end case 

tps = (tpsflip A tpssign)? tpsmajcount - 1'b1 : tpsmajcount + 1'b1; 

end 

endf unction 
45 /*FOLDENDS*/ 

/*FOLDBEGINS 0 0 "pseudo function"*/ 

function [1 1 :0] pseudo; 
input [11:0] data; 
50 input flip; 
begin 

pseudo = flip? -data + 1*b1 : data; 
end 

endfunction 
55 /*FOLDENDS7 

/*FOLDBEGINS 0 0 "averager multiplier"*/ 
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function [1 1 :0] avmult; 
input [11:0] i; 
reg [23:0] res; 
begin 

5 res = (r AVERAGESF) + 23'h000800; //multiply and round 

avmult = res[23:12]; 
end 

endfunction 

/*FOLDENDS*/ 
10 TFOLDBEGINS 0 0 "filter tap multiplier 11 */ 

function [27:0] mult; 

input [11:0] i; 

input [11:0] j; 

reg [23:0] res; 
15 reg [11:0] modi; 

reg [11:0] invi; 

begin 

invi = ~i + 1'b1; 
modi = i[1 1]? invi : i; 
20 res = (modi w j); //multiply and round 

mult = i[1 1]? {4'hf -res} + 1'b1 : res; 

end 

endfunction 

/*FOLDENDS*/ 
25 /"FOLDBEGIN3 0 0 "signed multiplier"*/ 

function [23:0] smult; 

input [11:0] i; 

input [11:0] j; 

input signed); 
30 reg [23:0] res; 

reg [11:0] modi; 

reg [1 1:0] modj; 

begin 

modi = i[11]? -i+ 1'b1 : i; 
35 modj = (j[11]&&signedj)? -j + 1'b1 : j; 

res = (modi*modj); 

smult = (i[11] A (j[11]&&signedj))? -res + 1'b1 : res; 
end 

endfunction 
40 /*FOLDENDS*/ 

TFOLDBEGINS 0 0 "divider function"*/ 

function [7:0] divider; 

input [11:0] dividend; 

input [11:0] divisor; 
45 input qpsk; 

reg [11:0] moddividend; 
reg signresult; 
reg [12:0] intval; 
reg [12:0] carry; 
reg [7:0] divide; 
reg [8:0] signeddivide; 
integer i; 
begin 

signresult = dividend[1 1]; 

moddividend = dividend[11]? -dividend + Vb1 : dividend; 



50 
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divide = 0; 

carry = qpsk? {rbO,moddividend}:{moddividend,rbOy 
ATOLDBEGINS 0 2 ""*/ 
for(i=0;i<8;i=i+1) 
5 begin 

intval = carry - divisor; 
divide[7-i] = !intval[12]; 

carry = (intvai[12])? {carry[1 1:0], rbO} : {intva![11:0],1'b0}; 
end 

10 TFOLDENDS7 

//signeddivide = signresult? -divide + 2*b10 : divide + 1'b1- 
signeddivide = signresult? {1'b1 -divide} + 2'b10 : {1'bO.divide} + 1'b1; 

//$dispiayb(signeddivide t ,divide t ,signresult,,consteilation f V 
divider = signeddivide[8: 1 ]; 
15 end 

endf unction 
/*FOLDENDS*/ 

TFOLDBEGINS 0 0 "divider function with soft decisions added"*/ 

function [5:0] divplussoft; 
20 input [11:0] dividend; 

input [11:0] divisor; 

input [1:0] constellation; 

reg [11:0] moddividend; 

reg signresult; 
25 reg [12:0] intval; 

reg [12:0] carry; 

reg [8:0] divide; 

reg [10:0] signeddivide; 

reg [11:0] fracdivide; 
30 integer i; 

begin 

signresult = dividend[1 1]; 

moddividend = dividend[11]? -dividend + 1'b1 : dividend- 
divide = 0; 

35 carry = (constellation==0)? {1lD0,moddividend}:{moddividend 1'b0V 

rFOLDBEGINS 0 2 ""*/ 
for(i=0;i<9;i=i+1) 
begin 

intval = carry - divisor; 
40 divide[8-i]= !intval[12]; 

carry = (intval[12])? {carry[11:0],1'b0} : {intval[1 1:0],1'b0}; 
end 

/*FOLDENDS*/ 

signeddivide = signresult? {2*b1 1 -divide} + 1'b1 : {2'b0,divide}; 

45 

//$displayb(signeddivide tt divide tJ signresult,,constellation lf ); 
TFOLDBEGINS 0 2 "qpsk"7 h 

if(constellation==2'b0) 

begin 

50 //$writeh(„signeddivide„„); 

signeddivide = signeddivide + 8'h80; 
//$writeh(signeddivide„,,); 
if(signeddivide[10]) 
fracdivide = 9'h0; 
55 else 

if(signeddivide[9] 1 1 signeddivide[8]) 
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fracdivide = 12'h700; 

else 

begin 

fracdivide = signeddivide[7:0] + {signeddivide[7:0],rbO} + 
{signeddividep^OJ^bO}; in 
fracdivide = fracdivide + 8'h80; 
end 

divplussoft = {3'b0,fracdivide[10:8]}; 
end 
else 

TFOLDENDS7 
/*FOLDBEGINS 0 2 M 16qam"*/ 
if(conste!!ation==2'b01 ) 
begin 

Swriteh (,, signeddivide, t , , ) ; 

signeddivide = signeddivide + 8'hcO; 

$writeh(, f signeddivide >tll ); 

if(signeddivide[10]) 

begin 

signeddivide = 10'b0; 

fracdivide = 9TiO; 
end 
else 

if(signeddivide[9]| |(signeddivide[8:7]==2'b1 1)) 
begin 

fracdivide = 12'h380; 

signeddivide = 10'h100; 
end 
else 
begin 

fracdivide = signeddivide[6:0] + {signeddivide[6:0],1'b0} + 
{signeddivideferOp'bO}; in 
fracdivide = fracdivide + 8'h40; 
end 

divplussoft = {1'b0,signeddivide[8:7],fracdivide[9:7]}; 
end 

TFOLDENDSV 
TFOLDBEGINS 0 2 "32qam"*/ 
else 
begin 

signeddivide = signeddivide + 8'heO; 

if(signeddivide[10]) 

begin 

signeddivide = 10'b0; 

fracdivide = 9 r h0; 
end 
else 

if(signeddivide[9]| KsigneddividetSiS^S'bl 11)) 
begin 

signeddivide = 10'h180; 

fracdivide = 9*h1c0; 
end 
else 
begin 
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fracdivide = signeddivide[5:0] + {signeddivideF5:0],1'bO> + 
{signeddivide[5:0],2'b0}; //*7 
fracdivide = fracdivide + 8'h20; 
end 

5 divplussoft = {signeddivide[8:6],fracdivide[8:6]}; 

end 

TFOLDENDS*/ 
end 

endfunction 
10 TFOLDENDS*/ 

/*FOLDBEGINS 0 0 "PRBS alpha3/6/9/12 multiplier"*/ 
function [10:0] alpha; 
input [1:0] which_symbol; 
begin 

15 case(which_symbol) 
2'bO: 

alpha = 11'b11111111111; 
2'b01: 

alpha = 11^00011111111; 
20 2'b10: 

alpha = 11'b00000011111; 
2'b11: 

alpha = 11'b00000000011; 

endcase 
25 end 

endfunction 
TFOLDENDSV 

TFOLDBEGINS 0 0 "PRBS alpha12 multiplier"*/ 

function [10:0] alpha12; 
30 input [10:0] prbsin; 

reg [10:0] prbsO; 

reg [10:0] prbsl; 

reg [10:0] prbs2; 

reg [10:0] prbs3; 
35 reg [10:0] prbs4; 

reg [10:0] prbs5; 

reg [10:0] prbs6; 

reg [10:0] prbs7; 

reg [10:0] prbs8; 
40 reg [10:0] prbs9; 

reg [10:0] prbsl 0; 

begin 

prbsO = {prbsin[0] A prbsin[2],prbsin[10:1]}; 

45 prbsl = {prbs0[0] A prbs0[2] ,prbs0[10:1]}; 

prbs2 ={prbs1[0] A prbs1[2] ,prbs1[10:1]}; 

prbs3 ={prbs2[0] A prbs2[2] ,prbs2[10:1]}; 

prbs4 ={prbs3[0] A prbs3[2] ,prbs3[10:1]}* 

prbs5 = {prbs4[0j A prbs4[2] ,prbs4[10:1]}; 
50 prbs6 = {prbs5[0] A prbs5[2] ,prbs5[10:1]}; 

prbs7 = {prbs6[0] A prbs6[2] ,prbs6[10:1]}; 

prbs8 ={prbs7[0] A prbs7[2] ,prbs7[10:1]}; 

prbs9 = {prbs8[0] A prbs8[2] ,prbs8[10:1]}; 

prbs10 = {prbs9[0] A prbs9[2] ,prbs9[10:1]}- 
55 aipha12 = {prbs10[0] A prbsl 0[2],prbs10[1 0:1]}; 

end . 
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endfunction 
TFOLDENDS7 
/'FOLDENDS7 
endmodule 

5 

Listing 19 

/*FOLDBEGINS 0 0 "Copyright"*/ 

Copyright (c) Pioneer Digital Design Centre Limited 



NAME: pilloc_rtl.v 

15 

PURPOSE: Pilot location 

CREATED: June 1997 BY: J. Parker (C code) 
20 MODIFIED: BY: T. Foxcroft 

USED IN PROJECTS: cofdm only. 

********** ——**»——*****—*** ****** */ 

25 TFOLDENDS*/ 

define FFTSIZE 2048 
define SCATNUM 45 

module pilloc (elk, resync, in_valid, in_data, found_pilots, which_symbol, cpoffset, 
incfreq, 

30 ramaddr , ramin, ramout, wrstrb); 

/*FOLDBEGINS 0 0 "i/o"V 
input elk, resync, in_valid; 
input [23:0] in_data; 
output found_pilots; 
35 output [1 :0] which_symbol; 

output [10:0] cpoffset; 
output incfreq; 
/*FOLDENDS7 

/*FOLDBEGINS 0 0 "ram i/o"7 
output [10:0] ramaddr; 
reg [10:0] ramaddr_; 
output [23:0] ramin; 
input [23:0] ramout; 
output wrstrb; 
reg [10:0] ramaddr; 
reg [23:0] ramin; 
reg wrstrb; 
/*F0LDENDS7 
/*FOLDBEGlNS 0 0 "vars"7 
reg found_pilots; 
reg [1 :0] which_symbol; 
reg [1 :0] which_symbolcount; 
reg [1 :0] which_symbol_; 
reg [10:0] cpoffset; 
reg incfreq; 
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reg found_pilot; 
reg [19:0] v; 
reg [19:0] sum; 
reg [3:0] splocoffset; 
5 wire [10:0] carrier_number; 

reg [10:0] continual_pilot_offset; 

reg resynch; 

reg [3:0] valid; 
10 reg [23:0] fftdata; 

reg [10:0] fftcount; 

reg contcomplete; 

reg firstcontsearch; 

reg finishedsearch; 
15 reg [4:0] firstscatcomplete; 

reg [4:0] faiiedtolock; 

reg [2:0] spmax; 

reg [2:0] spmaxfirst; 

reg [10:0] pilot_offset; 
20 reg [1:0] splodzero; 

reg [10:0] splocO; 

reg [5:0] splod; 

reg [10:0] spiocmaxcount; 

25 reg [3:0] spoffset; 

reg [19:0] sumscat [11:0]; 

reg [19:0] sumscatmax; 

reg [3:0] sumscatmaxnoO; 

reg [3:0] sumscatmaxnol; 
30 wire [19:0] sumscatl; 

wire [19:0] sumscat3; 

wire [19:0] sumscat5; 

reg [11:0] sumscatfirst; 

reg [4:0] fftfinished; 
35 reg ramwritestop; //botch for development purposes 

wire [3:0] mod 1 2fftcount; 

TFOLDENDS*/ 

/*FOLDBEGINS 0 0 "continuous pilot location"*/ 
reg [10:0] contloc; 
40 always @(sploc1) 
begin 

case(splod) 

6'b000000: contloc = 0; 

6'b000001: contloc = 48; 
45 6'b000010: contloc = 54; 

6'bOOOOH: contloc = 87; 

6'b000100: contloc = 141; 

6'b000101: contloc = 156; 

6'b000 110: contloc = 192; 
50 6'b000 111: contloc = 20 1 ; 

6'b001000: contloc = 255; 

6'b001001: contloc = 279; 

6'b001010: contloc = 282; 

6'b001011: contloc = 333; 
55 6'b001 1 00: contloc = 432; 

6'b001 101 : contloc = 450; 
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6'bOOmO: cont!oc = 483; 

6'b001111: contloc = 525; 

6'b010000: contloc = 531; 

6'b010001: contloc = 618; 
5 6'b010010: contloc = 636; 

6'b010011: contloc = 714; 

6'b010100: contloc = 759; 

6'b0101G1: contloc = 765; 

6'b010110: contloc = 780; 
10 6'b0101 11: contloc = 804; 

6'bOIIOOO: contloc = 873; 

6'b011001: contloc = 888; 

6'b011010: contloc = 918; 

6'b011011: contloc = 939; 
1 5 6'b01 1 100: contloc = 942; 

6*b01 1101: contloc = 969; 

6'b011110: contloc = 984; 

6b011111: contloc = 1050; 

6 b 100000: contloc = 1101; 
20 6 b 1 0000 1 : contloc = 1 1 07; 

6 b 1000 10 contloc =1110; 

6"b100011. contloc = 1137; 

6'b100100 contloc = 1140; 

6'b100101: contloc = 1146; 
25 6 P100110: contioc= 1206; 

6 b 1001 11: contloc = 1269; 

6 b101000: contloc = 1323; 

6'b101001: contloc = 1377; 

6'b101010: contloc = 1491; 
30 6'b101011: contloc = 1683; 

default: contloc = 1704; 

endcase 
end 

TFOLDENDS7 

35 

always @(posedge elk) 
begin 

resynch <= resync; 
if(resynch) 
40 begin 

valid <= 4'b0; 

fftcount <=11'b0; 

firstscatcomplete <= 5'bO; 

sum <= 20'bO; 
45 splocO <=11'b0; 

splod <= 6'bO; 

contcomplete <= 1'b0; 

failedtolock <= 5'bO; 

spmax <= 1'b0; 
50 spmaxfirst <= 1'b0; 

ramwritestop <= 1'b0; 

found_pilots <= 1'b0; 

found_pilot <= 1'b0; 

firstcontsearch <= 1'bO; 
55 finishedsearch <= 1'b0; 

which_symbolcount <= 2'bO; 
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incfreq <= 1'bO; 
end 
else 
begin 

5 incfreq <= !failedtoiock[1 ]&&failedtolock[0]&&fftfinished[4]- 

found_pilots <= !found_pilot&&fmishedsearch; 
found_pilot <= finishedsearch; 
valid[0] <= in_vaiid; 
valid[1] <= valid[0]; 
10 valid[2] <= valid[1]; 

valid[3] <= valid[2]; 
fftdata <= in_data; 
if(valid[0]&&!finishedsearch) 
fftcount <= fftcount + 1'b1; 
15 //if(fftfinished[0]) 

// $display( H frame M „fftcount); 

//if(incfreq) 

// $dispiay( M tweek n ); 

20 TFOLDBEGINS 0 4 "locate continual pilots"*/ 

spmax[1] <= spmax[0]; 

spmax[2] <= spmax[1]; 

spmaxfirst[1] <= spmaxfirst[0]; 

spmaxfirst[2] <= spmaxfirst[1]; 
25 //if(fftfmished[3]) 

// Sdisplay (spoffset, , which_symboI); 

if(fftfinished[3]) 
begin 

30 failedtolock[1] <= failedtolock[0]; 

faiiedtoiock[2] <= failedtolock[1]; 
failedtotock[3] <= failedtolock[2]; 
failedtolock[4] <= failedtolock[3]; 

35 if(faiiedtolock[0]) 
begin . 
TFOLDBEGINS 0 2 ""*/ 
if(failedtolock[4]) 

failedtolock[0] <= 1'bO; 
40 firstscatcomplete <= 5'bO; 

ramwritestop <= 1'b0; 
firstcontsearch <= 1'bO; 
/*FOLDENDS*/ 
end 

45 else 
begin 

/*FOLDBEGINS 0 4 ""*/ 
firstscatcomplete[0] <= 1'bl; 
firstcontsearch <= !firstscatcomplete[0]; 
50 ramwritestop <= !ramwritestop| | finishedsearch; 

contcomplete <= ramwritestop; 

if(!finishedsearch&&firstscatcomplete[0]&&ramwritestop) 
begin 

finishedsearch <= firstcontsearch? VbO : 
55 (cpoffset==continual_pilot_offset); 

cpoffset <= continual _pilot_offset; 
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failedtoicck[0] <= !firstcontsearch&&(cpoffset!=continual_pilot_offset); 
end 

/*FOLDENDS*/ 
end 

5 end 
else 
begin 

firstscatcomplete[1] <= firstscatcomplete[0]&&!conicomplete; 
firstscatcomplete[2] <= firstscatcomplete[1]; 
10 if(firstscatcomplete[0]&&m h 

&&(sploc1==44)&&(splocO==splocmaxcount)) 
contcomplete <= V b 1 ; 

end 

if(found_pilots) 

15 $display(which_symbol,,cpoffset„spoffset); 

//$display(sum, , contcomplete, jamwritestop^which^symboLspoffset^spIo 
cO tf spiocmaxcount ff v, lttlf fftfinished[3], f finishedsearch); 

//SdisplayCmcount^firstscatcompletefOl^ramwritestop^spoffset^sumsca 
tmaxnol ,, M finishedsearch t ,found_pilots fl 
20 //„,,.,,, 

//pilot^offset^which^symbol^^cpoffset^failedtolock ); 
splodzero[0] <= (splod == 0); 
splod zero[1] <= splod zero[0]; 

25 tf(firstscatcomplete[0]&&!finish 
begin 
if(splod==44) 

begin 

30 TFOLDBEGINS 0 4 ""*/ 

//$display(sploc0„splocmaxcount); 

pilot_offset <= splocO + splocoffset; 

which_symbol <= which_symbol_ - which_symbolcount; 

if(splocO==splocmaxcount) 
35 begin 

splocO <= irbO; 
//contcomplete <= 1 *b1 ; 
which__symbolcount <= 2'bO; 
end 

40 else 
begin 

splocO <= splocO + 2'b1 1; 

which_symbolcount <= which_symbolcount + 1'b1 ; 
end 

45 if(sploc0==0) 

spmaxfirst[0] <= 1'b1; 
splod <= 6'bO; 
spmax[0] <= rb1; 
/*FOLDENDS*/ 

50 end 
else 
begin 

/*FOLDBEGINS0 4 ,,M */ 
splod <= splod + 1'b1; 
55 spmax[0] <= 1'b0; 

spmaxfirst[0] <= 1'b0; 
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/*FOLDENDS*/ 
end 
end 

if(firstscatcomplete[2j) 
5 begin 

if(sploc1zero[1]) 

sum <= modulus(ramout[23:12],ramout[11:0]); 
else 

sum <= modulus(ramout[23:12],ramout[11:0]) + sum; 
10 end 

TFOLDENDS*/ 
end 

TFOLDBEGINS 0 2 "search for largest continous pilot correlation"*/ 
if(spmax[2]) 
15 begin 

if(spmaxfirst[2]) 
begin 

v <= sum; 

continual_pilot_offset <= pilot_pffset 
20 end i 

else 
begin 

if(sum>v) 

begin 

25 v <= sum; 

conttnual_pilot_offset <= pilot_offset; 

end 
end 

30 //$display(sum M continuai_piIot_offset, .contcomplete, ,ramwritestop,, which 

^symbol^spoffset^.splocO^splocmaxcount.v); 
//Sdisplay(sum); 

end 

TFOLDENDSV 
35 end 

assign carrier_number = contloc + splocO + splocoffset 
TFOLDBEGINS 0 0 "scattered pilot offset mod 3"*/ 
always @(spoffset) 
begin 

40 splocoffset = 2'bO; 

splocmaxcount = 342; 
which_symbol_ = 2'bO; 
case(spoffset) 

4'b0000,4'b001 1 ,4'b01 1 0,4'b1 001 : 
45 begin 

splocoffset = 2'bO; 
splocmaxcount = 342; 
end 

4^0001,4^0100,4^0111,4^1010: 
50 begin 

splocoffset = 2'b01; 

splocmaxcount = 339; 
end 

//4'b001 0,4'b01 01 ,4'b1 000,4'b1 01 1 : 
55 default: 
begin 
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splocoffset = 2*10; 
spiocmaxcount = 339; 
end 

endcase 
5 case(spoffset) 

4*0000,4*0001 .4*130010: 
which_symbol__ = 2'bO; 
4*0011,4*0100,4*0101: 
which_symbol_ = 2*01; 
10 4*01 10,4*01 1 1 ,4*1000: 

which_symbol_ = 2*10; 
//4*1001,4*1010,4*1011: 
default: 

which_symbol_ = 2*1 1 ; 
15 endcase 
end 

TFOLDENDSV 

TFOLDBEGINS 1 0 "Search for scattered pilots"*/ 
always @(posedge elk) 
20 begin 

if(resynch) 

sumscatfirst <= 12'hfff; 
else 

25 

begin 

if(valid[0]&&!finishedsearch) 
/*FOLDBEGINS 1 2 "do the accumulations"*/ 
case(mod 1 2fftcount) 
30 4*0: 
begin 

sumscat[0] <= (sumscatfirst[0])7 modulus(fftdata[23:12],fftdata[1 1:0]) : 

sumscat[0] + modulus(ffidata[23:12],fftdata[11:0]); 

sumscatfirst[0] <= 1*0; 
35 end 
4*1: 
begin 

sumscat[1] <= (sumscatfirst[1])? modulus(ffldata[23:12] t ffldata[11:0]) : 

sumscat[1] + modulus(fftdata[23:12],fftdata[11:0]); 
40 sumscatfirst[1] <= 1*0; 

end 
4*2: 
begin 

sumscat[2] <= (sumscatfirst[2])? modulus(fftdata[23:12],fftdata[1 1:0]) : 
45 sumscat[2] + modulus(ffidata[23:12],fftdata[1 1:0]); 

sumscatfirst[2] <= 1*0; 
end 
4*3: 
begin 

50 sumscat[3] <= (sumscatfirst[3])? modulus(fftdata[23:12],fftdata[1 1:0]) : 

sumscat[3] + modulus(fftdata[23:12],fftdata[1 1:0]); 

sumscatfirst[3] <= 1*0; 
end 
4*4: 

55 begin 
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sumscat[4] <= (sumscatfirst[4])? modulus(ffidata[23:12],ffldata[11:01) : 
sumscat[4] + modulus(ffidata[23:12],fftdataf 1101V 
sumscatfirst[4] <= 1'b0; 
end 

5 4'h5: 
begin 

sumscat[5] <= (sumscatfirst[5])? modulus(fftdata[23:12],fftdata[11:0]) : 
sumscat[5] + modutus(fftdata[23:121,fftdata|110l)- 
sumscatfirst[5] <= 1*b0; 

10 end 
4'h6: 
begin 

sumscatg] <= (sumscatfirst[6])? modulus(fftdataf23:12],fftdatari101) ■ 
sumscat[6+modulus(fftdata[23:12l,fftdataf 1101V 
15 sumscatfirst[6] <= 1'bO; 1 J; ' 

end 

4'h7: 

begin 

sumscat[7] <= (sumscatfirst[7])? modulus(fftdata[23:12],fftdata[1 1 :01) ■ 
20 sumscat[/] + modulus(fftdata[23:12],fftdatari101)- ' 

sumscatfirst[7] <= 1'bO; ' 
end 
4'h8: 
begin 

25 

sumscatg] <= (sumscatfirst[8])? modulus(fftdataf23:12],fftdata[11:0]) ■ 
sumscat[8] + modulus(fftdata[23:12],fftdatari10]V 
sumscatfirst[8] <= 1*bO; 
end 

30 4*h9: 
begin 

sumscat[9] <= (sumscatfirst[9])? modulus(mdata[23:12],fftdata[110]) ■ 
sumscat[9] + modulus(ffidata[23:12],fftdataf1 1-01V 
sumscatfirst[9] <= 1*bO; 
35 end 
4'ha: 
begin 

sumscat[10] <= (sumscatfirst[10])? modulus(fftdata[23:12] ( fftdata[110l) 

sumscat[10] + modulusCfftdatapSi^l.fftdatarilOl)- 
40 sumscatfirst[10] <= 1'bO; 

end 
default: 
begin 

sumscat[11] <= (sumscatfirst[11])? modulus(fftdata[23:12],fftdata[110]) • 
sumscat[11] + modulus(fftdata[23:12] I fftdatari10l)- 
sumscatfirst[11] <= 1'bO; 
end 

endcase 
/*F0LDENDS7 
50 else if(fftfinished[0]) 

sumscatfirst <= 12'hfff; 
end 

TFOLDBEGINS 1 0 "Find offset"*/ 
if(resynch) 
55 fftfinished <= 5'bO; 

else 



45 
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begin 

fftfinished[0] <= valid[01&&!finishedsearch&&(fftcount==2047); 
fftfinished[1] <= fftfinished[0]; 
fftfinished[2] <= fftfinished[1]; 
5 fftfinished[3] <= fftfinished[2]; 

fftfinished[4] <= fftfinished[3]; 
end 

if(!ramwritestop) 
begin 

10 if(fftfinished[0]) 
begin 

sumscat[0] <= (sumscat[0] > sumscat[1])? sumscat[0] : sumscat[1]; 

sumscat[1] <= (sumscat[0] > sumscat[1])? 0:1; 

sumscat[2] <= (sumscat[2] > sumscat[3])? sumscat[2] : sumscat[3]; 
15 sumscat[3] <= (sumscat[2] > sumscat[3])? 2 : 3; 

sumscat[4] <= (sumscat[4] > sumscat[5])? sumscat[4] : sumscat[5]; 

sumscat[5] <= (sumscat[4] > sumscat[5])? 4:5; 

sumscat[6] <= (sumscat[6] > sumscat[7])? sumscat[6] : sumscat[7]; 

sumscat[7] <= (sumscat[6] > sumscat[7])? 6:7; 
20 sumscat[8] <= (sumscat[8] > sumscat[9])? sumscat[8] : sumscat[9]; 

sumscat[9] <= (sumscat[8] > sumscat[9])? 8:9;" 

sumscat[10] <= (sumscat[10]>sumscat[1 1])? sumscat[10] : sumscat[11]; 

sumscat[11] <= (sumscat[10]>sumscat[1 1])? 10 : 11; 

25 end 

if(fftfinished[1]) 
begin 

sumscat[0] <= (sumscat[0] > sumscat[2])? sumscat[0] : sumscat[2]; 
sumscat[1] <= (sumscatfO] > sumscat[2])? sumscat[1] : sumscat[3]; 
30 sumscat[2] <= (sumscat[4] > sumscat[6])? sumscat[4] : sumscat[6]; 

sumscat[3] <= (sumscat[4] > sumscat[6])? sumscat[5] : sumscat[7]; 
sumscat[4] <= (sumscat[8] > sumscat[10])? sumscat[8] : sumscat[10]; 
sumscat[5] <= (sumscat[8] > sumscat[10])? sumscat[9] : sumscat[1 1]; 
end 

35 if(fftfinished[2]&&!ramwritestop) 
spoffset <= sumscatmaxnol; 
end 

if(fftfinished[0]) 
begin 

40 $display(sumscat[0]); 

$display(sumscat[1 ]); 

$display(sumscat[2]); 

$display(sumscat[3]); 

$display(sumscat[4]); 
45 $display(sumscat[5]); 

$display(sumscat[6]); 

$display(sumscat[7]); 

$display(sumscat[8]); 

$display(sumscat[9]); 
50 $display(sumscat[1 0]); 

$display(sumscat[1 1]); 

$display(); 
end 

55 end 
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always @(sumscat[0] or sumscat[1] or sumscat[2] or sumscat[3] or sumscat[4] or 
surnsc3T[Dj 

or sumscatl or sumscat3 or sumscatS) 
begin 

5 sumscatmax = (sumscat[0] > surnscat[2])? sumscat[0] : sumscat[2V 

sumscatmaxnoO = (sumscat[0] > sumscat[2])? sumscatl [3:0] : sumscat3[3:0]; 
end UmSCatmaXn ° 1 = (sumscatmax > s umscat[4])? sumscatmaxnoO : sumscat5[3:0]; 

assign mod12fftcount = mod12(fftcount); 
10 assign sumscatl = sumscat[1]; 
assign sumscat3 = sumscat[3]; 
assign sumscatS = sumscat[5]; 

/'FOLDENDS7 
15 /*FOLDENDS*/ 

/*FOLDBEGINS 0 0 "ram"*/ 
always @(posedge elk) 
ramaddr_ <= ramaddr; 

always @(ramwritestop or valid or finishedsearch or fftcount or carrier number or 
20 ramwritestop or ramaddr_ or fftdata) • " 

begin 

ramaddr = ramaddr_; 
if(!ramwritestop) 
25 begin 

if(valid[0]&&!finishedsearch) 

rama^r = {fftcount[0] j mcount[1] t mcount[2] 
5],fncount[6] f 

fftcount[7]»fftcount[8],fftcount[9] f fftcount[10l}; 
30 end 

else 

ramaddr = carrier_number; 
ramin = fftdata; 

wrstrb = !(!ramwritestop&&valid[1]); 

35 end 

/'FOLDENDS*/ 

TFOLDBEGINS 0 0 "modulus approximation function"*/ 
function [1 1 :0] modulus; 
40 input [11:0] i; 
input [11:0] j; 
reg [11:0] modi; 
reg [11:0] modj; 
begin 

45 modi = (i[1 1]? H : i) + i[1 1]; 

modj = G[11]?-j:j)+j[11]; 
modulus = modi + modj; 
end 

endf unction 
50 /*FOLDENDS7 

TFOLDBEGINS 0 0 M mod12"*/ 

function [3:0] mod 12; 

input [10:0] count; 

reg [14:0] onetwelfth; 
55 reg [7:0] modulus12; 

parameter TWELFTH = 12 f haab; 
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begin 

onetweifth = {count[0],count[1],count[2],count[3] t countf4],count[5], count [6], 
count[7],count[8],count[9],count[10]} * TWELFTH; 
modulus12 = {onetwelfth[14:9],1'b0} + onetwe!fth[14:9] + 4'h8; /n2 
mod12 = modulus12[7:4]; 
end 

/* FOLD ENDS*/ 

endfunction 

endmodule 

Listing 20 

// Sccsld: @(#)bch_decode.v 1 .2 8/22/97 
/*FOLD B E GIN S ^0 jOJ^copy rig ht"*/ 

// Copyright (c) 1997 Pioneer Digital Design Centre Limited 
// 

//NAME: BCH_rtl.v 
II 

II PURPOSE: BCH decoder for TPS pilots. Flags up to two error 

// positions using search technique. 

// 

TFOLDENDS*/ 

'define DATA0_SIZE 7'b01 10100 
'define DATA1_SIZE 7'b0110111 

module bch_decode (elk, resync, in_data, in_valid, in finalwrite, out valid, out data); 
/*FOLDBEGINS 0 0 "l/Os"*/ 
input elk, resync; 

input in_data, in_valid, in_finalwrite; 

output out_valid; 

output out_data; 

reg out_data; 

reg out_valid; 

/*FOLDENDS*/ 

/*FOLDBEGINS 0 0 "variables"*/ 

reg resynch; 

reg valid; 

reg finalwrite; 

reg indata; 

reg [6:0] SO; 

reg [6:0] S1; 

reg [6:0] S2; 

reg [6:0] count; 

reg search 1 error, found2error, oneerror, twoerror; 
wire twoerror_; 
reg noerrors; 

reg delayO, delayl, delay2; 

reg [6:0] GsO; 

reg [6:0] Gs1; 

reg [6:0] Gs2; 

TFOLDENDS*/ 

always @(posedge elk) 

begin 
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/*FOLDBEGINS 0 2 "read in data and calculate syndromes"*/ 
resynch <= resync; 
if(resynch) 
begin 

5 valid <= rbO; 

50 <= 7'bO; 

51 <= 7'bO; 

52 <= 7'bO; 
end 

10 else 
begin 
valid <= in_valid; 
if (delay 1 &&twoerrorJ 
begin 

15 /*FOLDBEGINS 0 4 "update after one in two errors found"*/ 
S0<=SO A GsO; 

51 <= S1 A Gs1; 

52 <= S2 A Gs2; 
/*FOLDENDS*/ 

20 end 

else if(valid) 
begin 

50 <= indata A MULTM(SO); 

51 <= indata A MULTA2(S1); 
25 S2 <= indata A MULTA3(S2); 

end 
end 

indata <= in_data; 
/*FOLDENDS*/ 
30 TFOLDBEGINS 0 2 "out_valid control"*/ 
if(resynch) 

begin 

delayO <= 1'bO; 
35 delayl <= 1*b0; 

delay2 <= 1'bO; 

out_valid <= 1 f b0; 

finalwrite <= VbO; 
end 

40 else 
begin 

finalwrite <= in_finalwrite; 
if(valid&&finalwrite) 
delayO <= 1'b1; 
45 else 

if(count == ^DATA1_SIZE-4) 
delayO <= 1'bO; 
delayl <= delayO; 
delay2 <= delayl; 
50 out_valid <= delay2; 
end 

TFOLDENDS*/ 
TFOLDBEGINS 0 2 "error search algorithm"*/ 
if(delay0&&!delay1) 
55 begin 

noerrors <= (SO == 7'bO); 
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searchlerror <= (GFULL(S0,S1) == S2); 
found2error <= 1'b0; 
twoerror <= 1'b0; 
count <= 7'bO; 
5 GsO <= 7'h50; 

Gs1 <= 7'h20; 
Gs2 <= 7'h3d; 
end 

SiSG 

10 if (delay 1) 
begin 

oneerror <= ((S0 A Gs0) == 7'b0)&&search1 error; 
twoerror <= tvoerror_; 
if(twoerror_) 
15 begin 

searchlerror <= 1'b1; 

found2error <= 1'b1; 
end 

GsO <= DIV1(Gs0); 
20 Gs1 <= DIV2(Gs1); 

Gs2 <= DIV3(Gs2); 
count <= count + 1'b1; 
end 

out_data <= (twoerror| |oneerror)&&!noerrors- 
25 /*F0LDENDS7 
end 

assign twoerror_ = ( GFULL((SO A Gs0),(S1 A Gs1)) 
(S2 A Gs2))&&!found2error&&!twoerror; 
TFOLDBEGINS 0 0 "functions"*/ 
30 /*FOLDBEGINS 0 0 "GFULL function"*/ 



35 



40 



45 



50 



55 



function [6:0] GFULL; 
input [6:0] X; 
input [6:0] Y; 

reg [6:0] AO, A1, A2, A3, A4, A5, A6; 
integer i; 
begin 
A0 = X; 

A1 = {AO[5],A0[4],AO[3] 
A2 = {A1[5]A1[4],A1[3] 
A3 = {A2[5],A2[4],A2[3] 
A4 = {A3[5]A3[4],A3[3] 
A5 = {A4[5],A4[4],A4[3] 
A6 = {A5[5],A5[4],A5[3] 



,A0[2] A 
,A1 [2] A 
,A2[2] A 
,A3[2] A 
,A4[2] A 
,A5[2] A 



A0[6],A0[1] 
A1[6],A1[1] 
A2[6],A2[1] 
A3[6],A3[1] 
A4[6],A4[1] 
A5[6],A5[1] 



,A0[0].A0[6]} 
,A1[0],A1[6]} 
,A2[0].A2[6]} 
,A3[0],A3[6]} 
,A4[0].A4[6]} 
,A5[0],A5[6]} 



for(i=0;i<7;i=i+1) 
begin 

A0[i] = 

A1[i] = 

A2[i] = 

A3[i] = 

A4[i] = 

A5[i] = 

A6[i] = 



A0[i] && Y[0]; 
A1[i] && Y[1]; 
A2[i] && Y[2], 
A3[i] && Y[3]; 
A4[i] && Y[4]; 
A5[i] && Y[5]; 
A6[i] && Y[6]; 



end 

GFULL = AO A A1 A A2 A A3 A A4 A A5 A A6; 
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end 

endfunction 
/*FOLDENDS7 

/*FOLDBEGINS 0 0 "MULTA1 function"*/ 
5 function [6:0] MULTA1; 
input [6:0] X; 
begin 

MULTA1 = {X[5],X[4],X[3].X[2] a X[6],X[1],X[0],X[6]}; 
end 

10 endfunction 

/*FOLDENDS*/ 

/*FOLDBEGINS 0 0 "MULTA2 function"*/ 
function [6:0] MULTA2; 
input [6:0] X; 
15 begin 

MULTA2 = {X[4],X[3],X[2rX[6],X[irX[5].X[0],X[6],X[5]}; 
end 

endfunction 

/*FOLDENDS7 , 
20 /*FOLDBEGINS 0 0 "MULTA3 function"*/ 1 
function [6:0] MULTA3; 

input [6:0] X; 

begin 

MULTA3 = {X[3],X[2rX[6],X[1]AX[5],X[0]^X[4],X[6],X[5],X[4]}; 
25 end 

endfunction 

/*F0LDENDS7 

/*FOLDBEGINS 0 0 "DIV1 function"*/ 
function [6:0] DIV1 ; 
30 input [6:0] X; 
begin 

DIV1 = {X[0],X[6],X[5],X[4] ) X[3rX[0],X[2],X[1]}; 
end 
endfunction 
35 TFOLDENDS7 

/*FOLDBEGINS 0 0 "DIV2 function"*/ 
function [6:0] DIV2; 
input [6:0] X; 
begin 

40 DIV2 = {X[1],X[0],X[6],X[5] 1 X[4]-X[1],X[3]-X[0],X[2]}; 
end 

endfunction 

TFOLDENDS*/ 

/*FOLDBEGINS 0 0 "DIV3 function"*/ 
45 function [6:0] DIV3; 
input [6:0] X; 
begin 

DIV3 = {X[2],X[1],X[0],X[6],X[5rX[2],X[4rX[1],X[3rX[0]}; 

50 endfunction 

/*F0LDENDS7 
/*FOLDENDS*/ 
/*FOLDBEGINS 0 0 "'7 
//always @(posedge elk) 

55 //$displaytin_valid„in data„in_finalwrite„„out valid„out data,„S0„S1, S2 )• 
//always @(psedge elk) ~ ~ 
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// $display(resynch,, in_valid,,in_data,,out_vaiid,, SO, ,S1,,,, count,,, delayO,, del 
ay1,,delay2,,,. 

// ,,,,delay2,,noerrors,,oneerror,,twoerror,,out_data,,out_valid); 
//always @(posedge elk) 

//$display(in_valid„in_data,„,out_valid„out_data,„S0„S1„S2 lM ); 
//always @(posedge elk) 

//Sdisplay(in_valid„in_data,,„out_valid,,out data„,S0„S1„S2,„); 

/*FOLDENDS*/ 

endmodule 

Listing 21 



// Sccsld: @(#)tps.v 1 .2 9/1 5/97 

TFOLDBEGINS 0 0 "copyright""/ 

1 5 ir - — ****** — 

// Copyright (c) 1997 Pioneer Digital Design Centre Limited 
// 

//NAME tps_rtl.v 
// 

20 // PURPOSE Demodulates TPS pilots using DPSK. Finds sync bits. 
// Corrects up to two errors using BCH, 
// (DPSK produces two errors for each transmission error) 
// HISTORY 

// 15/9/97 PK Added scan IO ports, te, tdin ,tdout 
25 // 

TFOLDENDSV 

'define SYNCSEQO 16'b01 1 101 1 1 10101 100 
'define SYNCSEQ1 16^1000100001010011 
30 module tps (resync, elk, tps_valid, tps_piiot, tps_sync, tps_data, upsel, upaddr, 
uprstr lupdata, 

te, tdin, tdout); 
TFOLDBEGINS 0 0 "i/os M */ 

input resync, elk, tps_valid. tps_pilot, upsel, uprstr, te, tdin; 
35 input [1:0] upaddr; 

inout [7:0] lupdata; 

output tps_sync, tdout; 

output [30:0] tps_data; 

/*FOLDENDS*/ 
40 TFOLDBEGINS 0 0 "registers"*/ 

reg resynch; 

reg [1:0] foundsync; 

reg [66:0] tpsreg; 

reg [15:0] syncreg; 
45 reg [1:0] tpsvalid; 

reg [1:0] pilot; 

reg tps_sync; 

reg [7:0] bch_count; 

reg [2:0] bch_go; 
50 reg bch_finaiwrite; 

wire bch_data; 

wire bch_valid; 

wire bch_error; 

integer i; 

55 wire upselO; 

wireupseh; 
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wire upse!2; 
i wire upse!3; 

,' /*FOLDENDS*/ 

j 

5 always @(posedge elk) 
begin 

/*FOLDBEGINS 0 2 "Synchronise to TPS"*/ 
resynch <= resync; 

if(tpsvalid[0]&&!(foundsync[0]| |foundsync[1]| jtps sync)) 
10 begin ~" 
tpsreg[66] <= pilot[1] A piiot[0]; 
for(i=0;i<66;i=i+1) 

tpsregfi] <= tpsreg[i+1]; 

15 end 

eise 

if(bch_valid&&bch_error) 
tpsreg[bch_count] <= !tpsreg[bch_count]; 
i if(tpsvalid[0]&&(foundsync[0]| |foundsync[1])) 
20 ! begin 

syncreg[1 5] <= pilot[1 ] A pilot[0]; 
for(i=0;i<15;i=i+1) 

syncreg[i] <= syncreg[i+1]; 
end 

25 

piiot[0j <= tps_pilot; 
pilot[1] <=pilot[0]; 
if(resynch) 
begin 

30 tpsvalid <= 2 f b0; 

tps_sync <= 1'bO; 
bch_go <= 3'bO; 
bch_finaiwrite <= 1'bQ; 
bch_count <= 8'bO; 
35 foundsync <= 2'bO; 

end 
else 
begin 



tpsvalid 
40 tpsvalid 



0] <- tps_valid; 
1 <= tpsvalid[0]; 
bch_go~1] <= bch_go[0 ; 
bch_go[2] <= bch_go[1]; 
bch_finalwrite <= (bch__count == 65)&&bch go[2V 
if((bch_count == 52)&&bch_valid) 
45 tps_sync <= 1'b1; 

/*FOLDBEGINS 0 2 "counter*/ 
if(bch_count == 66) 
bchjsount <= S'bO; 

else if(tpsvalid[1]&&!(foundsync[0] 1 1 foundsync[1])) 
50 begin 

if(tpsreg[15:0] == % SYNCSEQ1) 

bch_count <= 8?ife; 11-2 

if(tpsreg[1 5:0] == % SYNCSEQ0) 

bch_count <= 8'hfe; //-2 
55 end 

else if(tpsvalid[1]&&(bch_count==15)&&(foundsync[0] || foundsync[1])) 
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bch_count <= 8'hfe; //-2 

else 

begin 

if(bch_vaiid || bch_go[0] || ((foundsyndO] || foundsync[1])&&tpsvaiid[0])) 
5 bch_count <= bch_count + Vb1; 

end 

TFOLDENDSV 
/*FOLDBEGINS 0 2 M BCH + second SYNC reg control"*/ 
if(bch_count == 66) 
10 begin 

bch_go <= 3'b0; 
end 

else if(tpsvalid[1]) 
15 begin 

if(foundsync[0] j| foundsync[1]) 
begin 

if(bch_count==15) 

begin 

20 if(((syncreg[15:0] == % SYNCSEQ0)&&foundsync[1])| | ((syncreg[15:0] 

== *SYNCSEQ1)&&foundsync[0l) ) 
bch_go[0] <= 1'b1; 
else 

foundsync <= 2'b0; 
25 end 
end 
else 
begin 

if(tpsreg[15:0] == SYNCSEQ1) 
30 foundsync[1] <= 1'b1; 

if(tpsreg[15:0] == *SYNCSEQ0) 

foundsync[0] <= 1'b1; 
end 
end 

35 /*FOLDENDS*/ 
end 

/*FOLDENDS*/ 
end 

assign bch_data = tpsreg[bch_count]; 
40 /*FOLDBEGINS 0 0 ""*/ 
//always @(posedge elk) 
//begin 

// $write(tps_valid , ,tps_sync, ,tps_pilot, ? tpsvalid[1 ] „ pilot, m)1 

// bch_finalwrite ,bch_go[2] M bch_data„bch_valid f) bch_error lt bch_count,,tps 

45 _sync tll „); 

// $displayb(tpsreg,,syncreg„foundsync); 
//end 

TFOLDENDS*/ 

TFOLDBEGINS 0 0 "micro access"*/ 
50 assign upselO = upsel&&uprstr&&!upaddr[1]&&!upaddr[0 

assign upseM = upsel&&uprstr&&!upaddr[1]&& upaddr[0 

assign upsel2 = upsel&&uprstr&& upaddr[1]&&!upaddr{0 

assign upsel3 = upsel&&uprstr&& upaddr[1]&& upaddr[0 

assign lupdata = upselO? {1'b0,tps_data[30:24]} : 8'bz, 
55 lupdata =upsel1? tps_data[23:16] : 8'bz, 

lupdata = upsel2? tps_data[15:8] : 8'bz, 
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lupdata = upsel3? tps data[7:01 : 8'bz- 
/*FOLDENDS*/ ~ 
assign tps_data = tpsreg[52:22]; 

bch_decode bch1 (.clk(clk), .resync(resync), .in_valid(bch go[2]) 
.in_finalwrite(bch_fmalwrite), .in_data(bch_data), 

.out_valid(bch_valid), .out_data(bch_error)); 

endmodule 



Listing 22 

//SccsID = %W% %G% 



//FOLDBEGINS 0 0 "Copyright (c) 1997 Pioneer Digital Design Centre Limited 

1 5 r — — 

Copyright (c) 1997 Pioneer Digital Design Centre Limited 

NAME sydint_rtl.v 

20 PURPOSE <a one line description> 

CREATED: Thu 14 Aug 1997 BY: Paul(Paul McCloy) 

MODIFICATION HISTORY: 
25 1 5/9/97 PK Increased width to 1 3 to allow for bad_carrier flag 



//FOLDENDS 

30 //FOLDBEGINS 0 0 "module symdint ... <- top level" 

imiiiiiiiimiiiiiiiiiiiiiiiiiimiiiiiiiiiiiiimmmiiiiimiiiiiii 

module symdint 
//FOLDBEGINS 0 0 "pins ..." 
( 

35 out_data, 
valid, 

d_symbol, 

valid_in, 
40 demap_data, 
odd_symbol, 
symbol, 
carrierO, 
constellation, 

45 

//FOLDBEGINS 0 3 "ram pins ..." 
ram_a, 
ram_di, 
ram_do, 
50 ram_wreq, 

//FOLDENDS 

//FOLDBEGINS 0 3 "scan pins ..." 
tdin, 
55 tdout, 



7 
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te, 

//FOLDENDS 

nrst, 
5 elk 

); 

//FOLDENDS 

parameter WIDTH = 13; // Modified by PK 15/9/97; 12->13 
1 0 parameter ADDR_WIDTH = 11; 

//FOLDBEGINS 0 2 "outputs ..." 
output tdout; 

15 output valid; 

output [17:0]out_data; 
output d_symbol; 

cutout [ADDR_WIDTH-1 :0]ram_a; 
20 output [WIDTH-1:0]ram_di; 
output ram_wreq; 
//FOLDENDS 
//FOLDBEGINS 0 2 "inputs ..." 

25 input valid_in; 

input [WIDTH-1:0]demap_data; 

input odd_symbol; 

input symbol; 

input carrierO; 
30 input [WIDTH-1:0]ram_do; 

input [1:0]constellation; 

input tdin, te; 

35 input nrst, elk; 
//FOLDENDS 
//FOLDBEGINS 0 2 "regs / wires ..." 

//FOLDBEGINS 0 0 "inputs regs ..." 

40 

reg valid_in_reg; 

reg [WIDTH-1:0]demap_data_reg; 
reg odd_symbol_reg; 
reg symbol_reg; 
45 reg [WIDTH-1:0]ram_do_reg; 
reg [1:0]constellation_reg; 
//FOLDENDS 

//FOLDBEGINS 0 0 "output regs ..." 

50 reg valid; 

reg [17:0]out_data; 
reg d_symbol; 

reg [ADDR_WIDTH-1 ;0]ram_a; 

55 

reg [WIDTH-1:0]ram_di; 
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reg ram_wreq; 
//FOLDENDS 

//FOLDBEGINS 0 0 "instate_reg .. " 

5 

parameter INSTATE_WAIT_SYMBOL = 2'dO- 
parameter I NSTATE_WAIT_VALID = 2'd 1 ■ 
parameter INSTATE_WRITE = 2*d2; 
parameter INSTATE_WRITE_RAM = 2'd3- 

10 

reg [1 :0]instate_reg; 
//FOLDENDS 

//FOLDBEGINS 0 0 "outstate_reg ..." 

15 parameter OUTSTATE_WAIT_WR!TEFIN I SHED = 3'dfJ- 

parameter OUTSTATE_WAIT0 =3'dV 

parameter OUTSTATE_WAIT1 = 3'd2; 

parameter OUTSTATE READRAM = 3'd3- 

parameter OUTSTATE_WAIT2 = 3'd4" 
20 parameter OUTSTATE_OUTPUTDATA = 3'd5" 

parameter OUTSTATE_WAIT3 = 3'd6; 

reg [2:0]outstate_reg; 
//FOLDENDS 

25 

reg [ADDR_WIDTH-1 :0]read_addr_reg; 
reg [WIDTH-1:0]data_reg; 
reg next_read_reg, next_write_reg; 
reg frist_data_reg; 
30 reg odd_read_reg, odd_write_reg; 

reg sym_rst_read_reg, sym_rst_write_reg; 

reg [17:0] demapped; 
reg [3:0] iminus; 
35 reg [3:0] qminus; 
reg [8:0] outi; 
reg [8:0] outq; 
reg [5:0] demap; 

40 

//FOLDBEGINS 0 0 "wires ..." 

wire [ADDR_WIDTH-1 :0]address_read, address_write; 
wire finished_read, finished_write; 
wire valid_read, write_valid; 

45 

wire [5:0]ini, inq; 

//FOLDENDS 

//FOLDENDS 

50 ag #(ADD R_WI DTH) r 

//FOLDBEGINS 0 2 "pins ..." 
( 

.address(address_read), 

55 .finished(finished_read), 
. next( next_read_reg) , 
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.random(odd_read_reg), 
• sym_rst(sym_rst_read_reg) , 
.nrst(nrst), 
.clk(clk) 
5 ); 

//FOLDENDS 

ag #(ADDR_WIDTH) w 

//FOLDBEGINS 0 2 "pins ..." 
10 ( 

.address(address_write), 

.finished(finished_write), 

.naxt(next_write_reg) k 

.random(~odd_write_reg), 
1 5 .sym_rst(sym_rst_write_reg), 

.nrst(nrst), 

.clk(clk) 

); 

//FOLDENDS 

20 

//FOLDBEGINS 0 2 "latch inputs ..." 

always @(posedge elk) 

begin 

valid Jn_reg <= valid Jn; 
25 demap_data_reg <= demap_data; 

odd_symbol_reg <= odd_symbol; 

symboMreg <= symbol; 

ram_do_reg <= ram_do; 

constellation_reg <= constellation; 
30 end 

//FOLDENDS 

always @(posedge elk) 
begin 
35 if( -nrst ) 

//FOLDBEGINS 0 4 "reset ..." 
begin 

instate_reg <= INSTATE_WAIT_SYMBOL; 
outstate_reg <= OUTSTATE_WAITJ/VRITEFINISHED; 
40 next_read_reg <= 0; 

end 

//FOLDENDS 

else 

begin 

45 //FOLDBEGINS 0 4 "input state machine ..." 

//$write("DB(%0d %m): instate_reg=%0d fw=%b\n", 
// $time, instate_reg, finished_write); 
case (instate_reg) 

INSTATE_WAIT_SYMBOL: begin 
50 sym_rst_write_reg <= 1; 

next_write_reg <= 0; 
ram_wreq <= 0; 

if( symbol_reg ) 
55 begin 
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//$write( M DB(%0d %m): GOT = %x (NEW SYMBOL)\n", $time, 

demap_data_reg); 
$write( n DB(%0d %m): START WRITE\n", $time); 
odd_write_reg <= odd_symbol_reg; 
5 data_reg <= demap_data_reg; 

instate_reg <= INSTATE J/VRITE; 
end 
end 

I N STATE_ WA IT_VA LI D : begin 
1 0 ram_wreq <= 0; 

next_write_reg <= 0; 
if( finished_write ) 
begin 

$write("DB(%0d %m): END(1) WRITEXn", $time); 
15 instate_/eg <= INSTATE J/VAIT_SYMBOL; 

end 
else 
begin 

if( valid Jn_reg ) 
20 begin 

data_reg <= demap_data_reg; 
instate_reg <= INSTATEJ/VRITE; 
end 
end 

25 end 

I N STATE_WR ITE : begin 
sym_rst_write_reg <= 0; 
next_write_reg <= 1 ; 
ram_a <= address__write; 
30 //$write("DB(%0d %m): RWrite[%x] = %x\n'\ $time, address write 

data_reg); *" 
ram_di <= data_reg; 
ram_wreq <= 1 ; 
if( finished_write ) 
35 begin 

$write("DB(%0d %m): END(2) WRITE\n", $time); 
instate_reg <= INSTATE JA/AIT_SYMBOL; 
ram_wreq <= 0; 
end 

40 else 

instate_reg <= I N STATE_WAIT_VALI D ; 
end 

endcase 

//FOLDENDS 
45 //FOLDBEGINS 0 4 "output state machine ..." 

//$write("DB(%0d %m): outstate_reg=%0d nr:%b r:%b\n", 
// $time, outstate_reg, next_read_reg, odd_symbol_reg); 
case (outstate_reg) 

OUTSTATE_WAIT_WRITEFINISHED: begin 
50 sym_rst_read_reg <= 1 ; 

frist_data_reg <= 1; 
valid <= 0; 

if( finished_write ) 
55 begin 

odd_read_reg <= odd_write_reg; 
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outstate^reg <= OUTSTATEJ/VAIT0; 
$writerDB(%0d %m): START READ\n'\ Sttme); 
//$write( ,, DB(%Od %m): Read (NEW SYMBOL)\n'\ $time, 
address_read); 
5 end 
end 

OUTSTATE_WAIT0: begin 
sym_rst__read_reg <= 0; 
outstate_reg <= OUTSTATEJA/AIT1; 
10 end 

OUTSTATEJ/VAIT1: begin 

outstate_reg <= OUTSTATE_READRAM; 

end 

OUTSTATE_READRAM: begin 
15 //$write( M DB(%0d %m): Read [%x]\n M , $time, address_read); 

ram_a <= address__read; 
ram_wreq <= 0; 
next_read_reg <= 1 ; 
outstate_reg <= OUTSTATEJ/VAIT2; 

20 end 

OUTSTATEJ/VAIT2: begin 
next_read_reg <= 0; 

outstate_reg <= OUTSTATEJDUTPUTDATA; 

end 

25 OUTSTATE_OUTPUTDATA: begin 

out^data <= {outi[8:6], outq[8:6], outi[5:3], 
outq[5:3], outi[2:0] f outq[2:0]}; 
valid <= 1; 

d_symboi <= frist_data_reg; 
30 frist_data_reg <= 0; 

outstate_reg <= OUTSTATEJ/VAIT3; 

end 

OUTSTATEJ/VAIT3: begin 
valid <= 0; 
35 if( finished_read ) 

begin 

outstate_reg <= OUTSTATE_WAIT_WRITEFINISHED; 
$write( M DB(%0d %m): END READ\n", $time); 
end 

40 else 

outstate_reg <= OUTSTATE_WAIT0; 
end 

endcase 
//FOLDENDS 
45 end 
end 



always @(constellation_reg or ini or inq) 
//FOLDBEGINS 0 2 "demapper ..." 
50 begin 

//FOLDBEGINS 0 2 "coarse demapping" 

iminus = {ini[5:3],1 , b0}-2 , d3; 
qminus = {inq[5:3],Vb0} -2'd3; 
55 if(constellation__reg==2 , b01 ) 

begin 
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demap = { 2'bO, 

iminus[2], 

qminus[2], 

!(iminus[2] A iminus[1]) t 
5 !(qminus[2] A qminus[1]) 

//$writeb(demap„); 
//$display(iminus„ini[5:3]); 

end 

10 else if(constellation_reg==2'b10) 

begin 

iminus = {ini[5:3],rb0} -3'd7; 
qminus = {inq[5:3],rb0} -3'd7; 
demap = { iminus[3], 
15 qminus[3], 

!(iminus[3] A iminus[2]), 
!(qminus[3] A qminus[2]) f 
(iminus[2] A iminus[1]), 
2q (qminus[2] A qminus[1]) 

end 
else 

demap = 6'b0; 

25 //FOLDENDS 

if(constellation_reg==2 , b01 ) 
begin 

//FOLDBEGINS 0 4 "16QAM" 
30 if(!iminus[1]&&iminus[0]) 
begin 

outi[8:6] = 3'b0; 

outi[5:3] = demap[3]? 3'b111 : 3 f b0; 
outi[2:0] = iminus[2]? ini[2:0] : Hni[2:0]; 
35 end 
else 
begin 

outi[8:6] = 3'bO; 
outi[5:3] = Hni[2:0]; 
40 outi[2:0] = 3 f b1.11; 

end 

if(!qminus[1 ]&&qminus[0]) 
begin 

outq[8:6j = 3*b0; 
45 outq[5:3] = demap[2]? 3'b11 1 : 3'bO; 

outq[2:0] = qminus[2]? inq[2:0] : Hnq[2:0]; 
end 
else 
begin 

50 outq[8:6] = 3'bO; 

outq[5:3] = Hnq[2:0]; 
outq[2:0] = 3'b111; 
end 
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end 

else if(consteilation_reg==2'b1 0) 
begin 

//FOLDBEGINS 0 4 "64QAM" 
5 if(!iminus[1]) 
begin 

outi[8:6j = demap[5]? 3'b111 : 3'bQ; 

outi[5:3] = demap[3]? 3'b111 : 3'bO; 

outi[2:0] = iminus[2]? Hni[2:0] : ini[2:0]; 
10 end 

else if(!iminus[2]) 
begin 

outi[8:6] = demap[5]? 3'b111 : 3'bO; 

outi[5:3] = iminus[3]? ini[2:0] : Hni[2:0]; 
15 outi[2:0] = demap[1]? 3'b111 : 3'bO; 

end 
else 
begin 

outi[8:6] = ~ini[2:0]; 
20 outi[5:3] = demap[3]? 3*b1 1 1 : 3'b0* 

outi[2:0] = demap[1]? 3'b111 : 3'bO; 
end 

if(!qminus[1]) 
begin 

25 outq[8:6] = demap[41? 3'b1 1 1 : 3'bO; 

outq[5:3] = demap[2]? 3'b111 : 3'bO; 
outq[2:0] = qminus[2]? Hnq[2:0] : inq[2:0]; 
end 

else if(!qminus[2]) 
30 begin 

outq[8:6] = demap[4]? 3'b111 : 3'bO; 

outq[5:3] = qminus[3]? inq[2:0] : Hnq[2:0]; 

outq[2:0] = demap[0]? 3'b111 : 3*b0; 
end 

35 else 
begin 

outq[8:6] = ~inq[2:0]; 
outq[5:3] = demap[2]? 3'b111 : 3'bO; 
outq[2:0] = demap[0]? 3'b111 : 3'bO; 
40 end 

//FOLDENDS 
end 
else 
begin 

45 //FOLDBEGINS 0 4 "QPSK" 

outi = {6'b0 f Hni[2:0]}; 
outq = {6 f b0 ,Hnq[2:0]}; 
//FOLDENDS 
end 

50 

end 

//FOLDENDS 

assign ini = ram_do_reg[1 1 :6]; 
55 assign inq = ram_do_reg[5:0]; 
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15 



20 



40 



endmodule 
//FOLDENDS 



//FOLDBEGINS 0 0 "module ag (address gereration)..." 
5 /////////////////^ 
module ag 

//FOLDBEGINS 0 0 "pins ..." 
( 

address, 
10 finished, 

next, 
random, 
sym_rst, 



nrst, 
elk 

); 

//FOLDENDS 

parameter ADDR_WIDTH = 12; 



//FOLDBEGINS 0 2 "outputs ..." 
output [ADDR_WIDTH-1:0] address; 
25 output finished; 
//FOLDENDS 

//FOLDBEGINS 0 2 "inputs ..." 
input next; 
input random; 
30 input sym_rst; 
input nrst, elk; 
//FOLDENDS 

//FOLDBEGINS 0 2 "regs ..." 
35 integer i; 

reg finished; 
reg [9:0] prsr_reg; 
reg [11:0] count_reg; 

wire address_valid; 
//FOLDENDS 



always @(posedge elk) 
45 begin 

if(^nrsf) * 
begin 

count_reg <= 0; 

50 prsr_reg <= 10'd0; 

end 
else 
begin 

if(synwst) 
55 begin 

finished <= 0; 
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count_reg <= 0; 
, end 
else 

if( next | (!address_valid & random) ) 
5 begin 

//$write( M DB(%Od %m): Next(r:%d)\n*\ $time, random); 
if( random ) 
//FOLDBEGINS 0 8 "do the random stuff ..." 
begin 

10 if( !address_valid ) 

begin 

//FOLDBEGINS 0 4 "drive the prsr ..." 
if( count_reg == 1 VdO ) 

prsr_reg <= 10'dO; 
15 else 

if( counWeg == 11'd1 ) 
prsr_reg <= 10*d1; 
else 
begin 

20 for(i=0;i<9;i=i+1) 

prsr_reg[i] <= prsr_reg[i+1]; 
prsr_reg[9] <= prsr_reg[0] A prsr_reg[3]; 
end 

25 

//FOLDENDS 

count_reg <= count_reg + 1 ; 

//$write("DB(%0d %m): count=%0d Rand( Retry )\n", Stime, 

count_reg); 
30 end 
else 
begin 

if( count_reg == 1 1 'd2047 ) 
begin 

35 //$write("DB(%0d %m): *** FINISHED Rand\n*\ $time); 

finished <= 1 ; 
count_reg <= 0; 
prsr_reg <= 10^0; 
end 

40 else 

begin 

//FOLDBEGINS 0 6 "drive the prsr ..." 
if( count_reg == 11'dO ) 

prsr_reg <= 10'd0; 
45 else 

if( count_reg == 11'd1 ) 

prsrjreg <= 10'd1; 

else 

50 begin 

for(i=0;i<9;i=i+1) 
prsr_reg[i] <= prsr_reg[i+1]; 
prsr_reg[9] <= prsr_reg[0] A prsr_reg[3]; 
end 

55 //FOLDENDS 

count_reg <= count_reg + 1 ; 
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//$write("DB(%0d %m): count=%0d Rand\n M t Stime, count_reg); 
finished <= 0; 

end 
end 

5 end 

//FOLDENDS 
else 

//FOLDBEGINS 0 8 "do the sequential stuff ..." 
begin 

10 if( count_reg != ird1511 ) 

begin 

//$write( n DB(%0d %m): count=%0d Sequ\n", $time, count_reg); 

count_reg <= count_reg +1; 

finished <= 0; 
15 end 
else 
begin 

//$write("DB(%0d %m): *** FINISHED Sequ\n", $time); 

finished <= 1; \ 
20 count_reg <= 0; 

end 
end 

//FOLDENDS 

end 

25 end 
end 

//FOLDBEGINS 0 2 "assign address ..." 
assign address = (random) ? ({count_reg[0], // 10 
30 ~ prsr_reg[2], // 9 

prsr_reg[5], // 8 

prsr_reg[8], 111 

prsr_reg[3], // 6 

prsr_reg[7], // 5 

35 prsr_reg[0], II A 

prsr_reg[1], // 3 

prsr_reg[4], // 2 

prsr_reg[6], // 1 

prsr_reg[9]}): 1/0 
40 count_reg; 

//FOLDENDS 

assign address_valid = (address < 1 1'd 1512); 
endmodule 
45 //FOLDENDS 

Listing 23 

//SccsID: "@(#)bitdeintv 1.4 9/14/97" 

//FOLDBEGINS 0 0 "Copyright (c) 1997 Pioneer Digital Design Centre Limited" 
50 ^******************************************************** 

- Copyright (c) 1997 Pioneer Digital Design Centre Limited 
NAME: bitdeint_rtl.v 
55 PURPOSE: bit deinterleaver 
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CREATED: Wed 23 Jul 1997 BY: Paul(Paul McCloy) 
MODIFICATION HISTORY: 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



//FOLDENDS 

module bitdeint 
//FOLDBEGINS 0 2 "pins ..." 
( 

i_data, 
q_data, 
discard J, 
discard_q, 

valid, //output 

//FOLDBEGINS 0 2 "ramO pins ..." 

ram0_a, 
ram0_di, 
ram0_do, 
ram0_wreq, 
ram0_ce, 
//FOLDENDS 
//FOLDBEGINS 0 2 "rami pins ..." 

ram1_a, 
ram1_di, 
ram1_do, 
ram1_wreq, 
ram1_ce, 
//FOLDENDS 
//FOLDBEGINS 0 2 n ram2 pins ..." 

ram2_a, 

ram2_di, 

ram2_do, 

ram2_wreq, 

ram2_ce, 

//FOLDENDS 

bad_carrier, 
valid_in, 
data J n, 
symbol, 

constellation, // constellation 
alpha, // does not do anything yet 

//FOLDBEGINS 0 2 "scan pins ..." 

tdin, 

tdout, 

te, 

//FOLDENDS 
nrst, 



7 
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elk 

); 

//FOLDENDS 

5 parameter SBW = 3; // soft bit width 

//FOLDBEGINS 0 2 "outputs ..." 
//FOLDBEGINS 0 0 "ramO outputs ..." 
output [6:0]ram0_a; 
10 output [((SBW+1 )«1)-1:0]ram0_di; 
output ramO ce; 
output ram0_wreq; 
//FOLDENDS 

//FOLDBEGINS 0 0 "rami outputs ..." 
15 output [6:0]ram1_a; 

output [((SBW+1)«1)-l:0]ram1_di; 

output ram1_ce; 

output ram1_wreq; 

//FOLDENDS 
20 . //FOLDBEGINS 0 0 "ram2 outputs ..." 

output (6 0)ram2_a; 

output [((SBW+1 )«1)-1 :0]ram2_di; 

output ram2_ce: 

output ram2_wreq; 
25 //FOLDENDS 

output tdout; 

output [SBW-1:0]i_data; 
30 output [SBW-1:0]q_data; 
output discard_i; 
output discarci_q; 

output valid; 

35 

//FOLDENDS 

//FOLDBEGINS 0 2 "inputs ..." 

input [((SBW+1 )«1)-1:0]ram0_do; 
40 input [((SBW+1 )«1)-1:0]ram1_do; 
input [((SBW+1 )«1)-1:0]ram2_do; 

input bad_carrier; 
input valid in; 

45 input [((SBW«2)+(SBW«1))-1:0]data_in; //6*SBWbits 
input symbol; 
input [1:0] constellation; 
input [2:0] alpha; 

50 input tdin, te; 

input nrst, elk; 
//FOLDENDS 

55 //FOLDBEGINS 0 2 "reg / wire ..." 
//FOLDBEGINS 0 0 "outputs ..." 
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//FOLDBEGINS 0 0 "ramO regs ..." 
reg [6:0]ram0_a: 
reg [((SBW+1)«1)-1:0]ramO_di; 
reg ramO_ce; 
5 reg ramO_wreq; 
//FOLDENDS 

//FOLDBEGINS 0 0 "rami regs ..." 
reg [6:0]ram1_a; 
reg [((SBW+1)«1)-1:0]ram1_di; 
10 reg ram1_ce; 
reg ram1_wreq; 
//FOLDENDS 

//FOLDBEGINS 0 0 "ram2 regs ..." 
reg [6:0]ram2_a; 
15 reg [((SBW+1)«1)-1:0]ram2_di; 
reg ram2_ce; 
reg ram2_wreq; 
//FOLDENDS 

20 reg [SBW-1:0]i_data; 

reg [SBW-1:0]q_data; 
reg discard_i; 
reg discard_q; 

25 reg valid; 

//FOLDENDS 

//FOLDBEGINS 0 0 "inputs ..." 
reg valid_in_reg; 

30 reg [((SBW«2)+(SBW«1))-1:0]data_in_reg; // 6*SBW bits 
reg symbol_reg, bad_carrier_reg; 

reg [1:0] constellation_reg; 
reg [2:0] alpha_reg; 
35 reg [((SBW+1)«1)-1 :0]ramO_do_reg; 
reg [((SBW+1)«1)-1:0]ram1_do_reg; 
reg [((SBW+1)«1)-1:0]ram2_do_reg; 

//FOLDENDS 

40 

. reg [6:0]i0_adr_reg; 
reg [6:0]i1_adr_reg; 
reg [6:0]i2_adr_reg; 
reg [6:0]i3_adr_reg; 
45 reg [6:0]i4_adr_reg; 

reg [6:0]i5_adr_reg; 

reg [2:0] mode_reg; 

reg [(SBW«2)+(SBW«1)-1:0]data_reg; //6*(SBW) bits 
50 reg [((SBW+1 )«1 )+SBW:0]i_out_buf_reg, q_out_buf_reg; // 3*(SBW+1 ) bits 

reg ram_filled_reg, out_buf_full_reg, bad_car_reg; 

wire [SBW:0] iO_in, qO_in, i1_in, q1_in ,i2_in ,q2_in; 
55 wire [SBW:0] iO_ram, qO_ram, i1 ram, q1 ram ,i2 ram ,q2 ram; 
//FOLDENDS " 
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//FOLDBEGINS 0 2 "latch inputs ..." 

always @(posedge elk) 

begin 

bad_carrier_reg <= bad_carrier; 
5 vaiidjn_reg <= vaiidjn; 

data_in_reg <= datajn; 
symboLreg <= symbol; 
constellation_reg <= constellation; 
alpha_reg <= alpha; 
10 ram0_do_reg <= ram0_do; 

ram1_do_reg <= ram1_do; 
ram2_do_reg <= ram2_do; 
end 

//FOLDENDS 

15 

always @(posedge elk) 
begin 
if( -nrst ) 

//FOLDBEGINS 0 4 "reset ..." ! 
20 begin 

mode_reg <= 2'bOO; 

valid <= 0; 

i0_adr_reg <= 0; 

i1_adr_reg <= 63; 
25 i2_adr__reg <= 105; 

i3_adr_reg <= 42; 

i4_adr_reg <= 21; 

i5_adr_reg <= 84; 

30 

i_out_buf_reg <= 0; 
q_put_buf_reg <= 0; 
ram_filled_reg <= 0; 
outjDuf_full_reg <= 0; 
35 end " ~ 

//FOLDENDS 
else 
begin 

if( valid Jn_reg ) 
40 //FOLDBEGINS 0 6 "start cycle ...." 

begin 

data_reg <= data_in_reg; 
bad_car_reg <= bad_carrier_reg; 

//$write("DB(%0d %m): data_reg=%X(%b.%b.%b)Vn" I $time, datajn reg f 
45 // bad_carrier, bad_carrier reg, bad car reqV 

//FOLDBEGINS 0 2 "logic toTead i0,1,2 
ram0_a <= i0_adrjreg; 
ram0_wreq <= 0; 

50 ram1_a <= i1_adr_reg; 

ram1_wreq <= 0; 

ram2_a <= i2_adrjreg; 
ram2_wreq <= 0; 
55 //FOLDENDS 



BNSDOCID: <WO 9819410A2J_> 



WO 98/19410 



PCT/US97/ 18911 



241 

ram0_ce <= 1 ; 

ram1_ce <= (constellation_reg == 2 ; 0) | 
(constellation_reg == 2*b01); 
ram2_ce <= (const: itiorweg == 2'b10); 

//FOLDBEGINS 0 2 "output M and q1 ... M 

if( out_buf_full_reg & (consteilation_reg != 2'b00)) 

begin 

valid <= 1 ; 

Ldata <= Lout_buf_reg[((SBW+1)«1)-2:(SBW+1)]; 
discard J <= Lout_buf_reg[((SBW+1)«1)-1]; 

q_data <= q_out_buf_reg[((SBW+1)«1)-2:(SBW+1)]; 
discard_q <= q_outJ>uf_reg[((SBW+1)<<1)-1]; 

//$write("DB(%0d %m): OUT(1):%x %x\n", $time, 
// Lout_buf_reg[((SBW+1)«1)-2:(SBW+1)] l 
// q_out j3uf_reg[((SBW+1 )«1 )-2:(SBW+1 ))); 
end 

//FOLDENDS 

mode_reg <= 3'b001; 
end 

//FOLDENDS 

else 

begin 

//$write( M DB(%0d %m): m=%b\n", $time, mode^reg); 

case( mode_reg ) 
//FOLDBEGINS 0 8 "3'b001: ... " 
3'b001: begin 

//FOLDBEGINS 0 4 "logic to read q0,1,2 ..." 
ram0_a <= i3_adr_reg; 
ram0_wreq <= 0; 

ram1_a <= i4_adr_reg; 
ram1_wreq <= 0; 

ram2_a <= i5_adr_reg; 
ram2__wreq <= 0; 
//FOLDENDS 
valid <= 0; 

mode_reg <= 3 f b010; 
end 
//FOLDENDS 

//FOLDBEGINS 0 8 "3'b010: ..." 

3'b010: begin 

mode_reg <= 3^011; 

//FOLDBEGINS 0 4 "output i2 and q2 ..." 

if( out_buf_full_reg & (constellation_reg == 2'blO)) 

begin 

valid <= 1; 

Ldata <= i_out_buf_reg[SBW-1:0]; 
discardj <= i_outjDuf_reg[SBW]; ' 
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q_data <= q_out_buf_reg[SBW-1:0]; 
discard_q <= q_out_buf_reg[SBW]; 

//$write("DB(%0d %m): OUT(2):%x %x\n", Stime, 
// i_out_buf_reg[SBW-1 :0], 
// q_out_buf_reg[SBW-1:0]); 
end 

//FOLDENDS 
end 
//FOLDENDS 

//FOLDBEGINS 0 8 "3*b01 1 : ... 
3'b011: begin 
valid <= 0; 

//$write("DB(%0d %m): ram read i0:%x h:%x i2:%x\n", 
// $time, 

// ram0_do_reg[((SBW+1)«1)-1:SBW+1], 
// ram1_do_reg[((SBW+1)«1)-1:SBW+1], 
// ram2_do_reg[((SBW+1).«1)-1:SBW+1]); 

i_out_buf_reg <= {ram0_do_reg[((SBW+1)«1)-1:SBW+1], 
ram 1 _do_reg [((SBW+ 1 )« 1 )- 1 : SB W+ 1 ], 
ram2_do_reg[((SBW+1 )«1 )-1 :SBW+1]}; 

//FOLDBEGINS 0 4 "logic to write new iO.1,2 ..." 

ram0_a <= i0_adr_reg; 

ramO_wreq <= 1 ; 

ram0_di <= {i0_in, q0_ram}; 

ram1_a <= i1_adr_reg; 

ram1_wreq <= 1; 

ram1_di <= {i1_in, q1_ram}; 

ram2_a <= i2_adr_reg; 
ram2_wreq <= 1 ; 
ram2_di <= {i2_in, q2 ram}; 
//FOLDENDS 
mode_reg <= 3'b100; 
end 
//FOLDENDS 

//FOLDBEGINS 0 8 "3'b100: ... 
3'b100: begin 

//$write("DB(%0d %m): ram read qO:%x q1:%x q2:%x\n", 
// $time, 

// ramO_do_reg[SBW:0], 
// ram1_do_reg[SBW:0], 
// ram2_do_reg[SBW:0]); 

q_out_buf_reg <= {ramO_do_reg[SBW:0], 
ram 1 _do_reg[SBW:0], 
ram2_do_reg[SBW:0]}; 

out_buf_full_reg <= ram_filled_reg- 
//FOLDBEGINS 0 4 "logic to write new q0,1,2 ..." 
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ram0_a <= i3_adr_reg; 

ram0_wreq <= 1; 

ram0_di <= {i0_ram, q0_in}; 

ram1_a <= i4_adr_reg; 

ram1_wreq <= 1; 

ram1_di <= {i1_ram, q1_in}; 

ram2_a <= i5_adr_reg; 
ram2_wreq <= 1 ; 
ram2_di <= {i2_ram, q2 in}; 
//FOLDENDS 

//FOLDBEGINS 0 4 "output iO and qO ..." 

if( out_buf_full_reg ) 

begin 

valid <= 1 ; 

i_data <= i_out_buf_reg[((SBW+1)«1)+SBW-1:((SBW+1)«1)]; 
discard_i <= i_out_buf_reg[((SBW+1)«1)+SBW]; 

q_data <= q_out_buf_reg[((SBW+1)«1)+SBW-1:((SBW+1)«1)]; 
discard_q <= q_out_buf_reg[((SBW+1)«1)+SBW]; 

//$write("DB(%Od %m): OUT(0):%x %x\n", $time, 

// i_out_buf_reg[((SBW+1)«1)+SBW-1 :((SBW+1)«1)], 
// q_out_buf_reg[((SBW+1 )«1 )+SBW-1 :((SBW+1 )«1 )]); 
end 

//FOLDENDS 
mode_reg <= 3'b101; 
end 
//FOLDENDS 

//FOLDBEGINS 0 8 "3"b1 01: ... " 

3'b101:begin 

valid <= 0; 

//FOLDBEGINS 0 4 "increment ram address ..." 

if( i0_adr_reg == 7'd125 ) 
begin 

i0_adr_reg <= 0; 

//FOLDBEGINS 0 2 "do i1_adr_reg (63 offset)..." 
i1_adr_reg <= (i1_adr_reg == 7'd20) ? 7'd84 : 
(i1_adr_reg == 7'd41) ? 7'd105 : 
(i1_adr_reg == 7'd62) ? 7'dO : 
(i1_adr_reg == 7*d83) ? 7'd21 : 
(i1_adr_reg == 7'd104) ? 7'd42 : 



//FOLDBEGINS 0 2 "do i2_adr_reg (105 offset)..." 

"2_adr_reg <= (i2_adr_reg == 7'd20) ? 7'd42 : 

(i2_adr_reg == 7'd41) ? 7*d63 : 
(i2_adr_reg == 7'd62) ? 7'd84 : 
(i2_adr_reg == 7'd83) ? 7'd105 
(i2_adr_reg == 7'd104) ? 7'dO : 



7'd63 ; 

//FOLDENDS 



7'd21 ; 

//FOLDENDS 
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//FOLDBEGINS 0 2 "do i3_adr_reg (42 offset)..." 

i3_adr_reg <= (i3_adr_reg == 7*d20) ? 7'd105 : 

(i3_adr_reg == 7'd41) ? 7'dO : 
(i3_adr_reg == 7'd62) ? 7'd21 : 
(i3_adr_reg == 7'd83) ? 7'd42 : 
(i3_adr_reg == 7'd1 04) ? 7'd63 



//FOLDBEGINS 0 2 "do i4_adr_reg (21 offset)..." 

i4_adr_reg <= (i4_adr_reg == 7'd20) ? 7'dO : 

(i4_adr_reg == 7'd41) ? 7'd21 
(i4_adr_reg == 7'd62) ? 7'd42 
<i4_adr_reg == 7'd83) ? 7'd63 
(i4_adr_reg == 7'd104) ? 7'd84 



//FOLDBEGINS 0 2 "do i5_adr_reg (84 offset)..." 

i5_adr_reg <= (i5_adr_reg == 7'd20) ? 7'd63 : 

(i5_adr_reg == 7'd41) ? 7'd84 : 
(i5_adr_reg == 7'd62) ? 7'd105 
(i5_adr_reg == 7'd83) ? 7'd0 : 
(i5_adr_reg == 7*d104) ? 7'd21 



ram_fiiled_reg <= 1 ; 
end 
else 
begin 



7'd84 ; 

//FOLDENDS 



7'd105 ; 
//FOLDENDS 



7'd42 ; 

//FOLDENDS 



end 



end 
//FOLDENDS 
end 
//FOLDENDS 
endcase 
end 
end 




assign iO_in = { bad_car_reg, 

data_reg[(SBW«2)+(SBW«1)-1 :(SBW«2)+SBW]}; 
assign q0_in = { bad_car_reg, 
data_reg[(SBW«2)+SBW-1 :SBW«2]}; 
assign i1_in = { bad_car_reg, 
data_reg[(SBW«2)-1 :(SBW«1 )+SBW]}; 
assign q1_in = { bad_car_reg, 
data_reg[(SBW«1 )+SBW-1 :SBW«1 ]}; 
assign i2_in = { bad_car_reg, 
data_reg[(SBW«1)-1 :SBW]}; 
assign q2_in = { bad_car_reg, 
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data_reg[SBW-1 :0]}; 

assign iO_ram = Lout_buf_reg[((SBW+1)«1)+SBW:((SBW+1)«1)]- 
assign q0_ram = q_out_buf_reg[((SBW+1)<<1)+SBW:((SBW+1)<<1)]; 
5 assign i1_ram = Lout_buf_reg[((S8W+i)«i)-i;SBW+i]; 

assign q1_ram = q_out_buf_reg[((SBW+1)«1)-l :SBW+1]' 
assign i2_ram = Lout_buf_reg[SBW:0]; 
assign q2_ram = qjDUt_bufjeg[S8W:0]; 

10 endmodule 

Listing 24 

// Sccsid: %W% %G% 
15 Copyright (c) 1997 Pioneer Digital Design Centre Limited 



20 module acc_prod (elk, resync, load, symbol, newjDhase, old phase xcount 
acc_out); 

input elk, resync, load, symbol; 
input [10:0] xcount; 
25 input [13:0] new_phase, oid_phase; 
output [29:0] accjDut; 

reg [29:0] acc_out; 
reg [29:0] accjnt; 
30 reg [14:0] diff; 
reg [25:0] xdiff; 

reg sign; 

reg [14:0] modjjiff; 
35 reg [25:0] modjediff; 



always @ (posedge elk) 
40 begin 

if (resync) 
begin 

acc_out <= 0; 
accjnt <= 0; 
45 end 

else 
begin 
if (load) 

50 accjnt <= accjnt + {xdiff[25], xdiff[25], // sign extend 
xdiff[25], xdiff[25], xdiff}; 
if (symbol) 
begin 

accj)ut <= accjnt; 
55 accjnt <= 0; 
end 
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end 
end 

always @ (new_phase or old_phase or xcount) 
begin 

diff = {new _phase[1 3], new_phase} // sign extend up to allow 

- {old_phase[13], old_phase}; // differences up to 360 
sign = diff[14]; 

mod_diff = sign ? (-diff + 1) : diff; 
mod_xdiff = modjdiff * {4'bO, xcount}; 
xdiff = sign ? (~mod_xdiff + 1) : modjxdiff; 
end 

endmodule 



Listing 25 

// Sccsld: %W% %G% 
Copyright (c) 1997 Pioneer Digital Design Centre Limited 

7 



module acc_simple (elk, resync, load, symbol, new_phase, old_phase, acc_out); 

input elk, resync, load, symbol; 
input [13:0] new_phase, old_phase; 
output [20:0] acc_out; 

reg [20:0] acc_out; 
reg [20:0] accjnt; 
reg [14:0] diff; 



always @ (posedge elk) 
begin 
if (resync) 
begin 

acc_out <= 0; 
accjnt <= 0; 
end 

else 
begin 
if (load) 

accjnt <= accjnt + {diff[14], diff[14], // sign extend 
diff[14], diff[14], y 
diff[14], diff[14], diff}; 

if (symbol) 

begin 

acc_out <= accjnt; 

accjnt <= 0; 
end 
end 
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end 

always @ (new_phase or old_phase) 

diff = {new_phase[13], new_phase} // sign extend up to allow 
5 - {old_phase[1 3], old_phase}; // differences up to 360 

always @ (diff or load) 
begin: display 

10 reg[14:0] real_diff; 

if (load) 
begin 

if(diff[14]) 
15 begin 

reaLdiff = (-diff + 1); 

Sdisplay ("diff = -%0d'\ reaLdiff); 

end 

else 

20 Sdispiay ("diff = %0d n , diff); I 
end 

end // display 



25 



30 



endmodule 

Listing 26 

// Sccsld: %W% %G% 

/****** 

Copyright (c) 1997 Pioneer Digital Design Centre Limited 



35 module addr_gen (elk, resync, u_symbol, uc_pilot, goLphase r en, load, guard, 
addr, xcount, guard_reg, symbol); 

input elk, resync, u_symbol, uc_pilot, gotjDhase; 
input [1:0] guard; 
40 output en, load, symbol; 
output [1 :0] guard_reg; 
output [9:0] addr; 
output [10:0] xcount; 

45 reg en, load, load_p, inc_count2, symbol; 
reg [1:0] guard_reg; 
reg [5:0] count45; 
reg [10:0] xcount; 
reg [9:0] addr; 

50 

always @ (posedge elk) 
begin 
if (resync) 
55 begin 

count45 <= 0; 
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load_p <= 0; 
load <= 0; 
inc_count2 <= 0; 
symbol <= 0; 
5 guard_reg <= 0; 
end 

else 
begin 
10 if(u_symbol) 
begin 

inc_count2 <= 1; 
guard_reg <= guard; 
end 

15 if (inc_count2 && uc_pilot) 
begin 

inc_count2 <= 0; 
count45 <= 0; 
end 

20 if (got_phase) 

count45 <= count45 + 1 ; 
load_p <= en; 
load <= load_p; 

symbol <= (inc_count2 && uc_pilot); 

25 

addr <= count45; 

en <= got_phase && Sresync && (count45 < 45); // !! 45 ? 
end 
end 

30 

always @ (count45) 
case (count45) 

1: xcount = 1; 

2: xcount = 49; 
35 3: xcount = 55; 

4: xcount = 88; 

5: xcount = 142; 

6: xcount = 157; 

7: xcount = 193; 
40 8: xcount = 202; 

9: xcount = 256; 

10: xcount = 280; 

11: xcount = 283; 

12: xcount = 334; 
45 13: xcount = 433; 

14: xcount = 451; 

15: xcount = 484; 

16: xcount = 526; 

17: xcount = 532; 
50 18: xcount = 619; 

19: xcount = 637; 

20: xcount = 715; 

21: xcount = 760; 

22: xcount = 766; 
55 23: xcount = 781; 

24: xcount = 805; 
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25: xcount 




874 






26: 


xcount 




889 






27: 


xcount 




919 






28: xcount 


= 


940 




5 


29: xcount 




943 






30: xcount 




970 






31: 


xcount 




985 






32: 


xcount 




1051; 




33: 


xcount 




1102; 


10 


34: 


xcount 


= 


1108; 




35: 


xcount 


= 


1111; 




36: 


xcount 


= 


1138; 




37: 


xcount 




1141; 




38: 


xcount 


— 


1147; 


15 


39: 


xcount 




1207; 




40: 


xcount 




1270; 




41: 


xcount 




1324; 




42: 


xcount 




1378; 




43: 


xcount 




1492; 


20 


44: 


xcount 




1684; 




45 


xcount 




1705; 



default: xcount = 0; 
endcase 
endmodule 

25 

Listing 27 

// Sccsld: %W% %G% 

30 Copyright (c) 1997 Pioneer Digital Design Centre Limited 
************* 



35 



40 



45 



module avg_8 (elk, resync, symbol, in_data, avg_out); 

parameter phase__width = 12; 

input elk. resync, symbol; 
input [phase_width-2:0] in_data; 
output [phase_width-2:0] avg_out; 

reg [phase_width-2:0] avg__out; 
reg [phase_width-2:0] store [7:0]; 



50 



55 



wire 
wire 
wire 
wire 
wire 
wire 
wire 
wire 



[phase 
[phased 
[phase, 
[phase 
[phase, 
[phase, 
[phase, 
[phase* 



_width- 
"width- 
"width- 
"width- 
width- 
"width- 
"width- 
"width- 



2:0] store7 
2:0] store6 
2:0] store5 
2:0] store4 
2:0] store3 
2:0] store2 
2:0] storel 
•2:0] storeO 



store 
store 
store 
store 
store 
store 
store 
store 
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20 



35 



40 



45 



50 



250 



wire [phase_width+1:0] sum = ({store7[phase width-2], store7[phase width-2], 
store7[phase_width-2], store7} ~ 

+ {store6[phase_width-2], store6[phase_width-2], store6[phase_width-2] 



store6} 
store5} 
store4} 
store3} 
store2} 
store 1} 
storeO}); 



+ {store5[phase_width-2], store5[phase_width-2], store5[phase_width-2] 
+ {store4[phase_width-2], store4[phase_width-2], store4[phase_width-2] 
+ {store3[phase_width-2], store3[phase_width-2], store3[phase_width-2] 
+ {store2[phase_width-2], store2[phase_width-2], store2[phase_width-2] 
+ <store1[phase_width-2], store 1 [phase_width-2], store 1[phase_width-2] 
+ {store0[phase_width-2], store0[phase_width-2] ! store0[phase_width-2] 



always @ (posedge elk) 
begin 
if (resync) 
begin 





store 


[7 


<= 


0; 




store 


6] 


<= 


0; 




store 


: 5 : 


<= 


0; 


25 


store 


'4 


<= 


0; 




store 


: 3 : 


<= 


0; 




store 


2 


<= 


0; 




store 


'1 


<= 


0; 




store 


: o : 


<= 


0; 


30 


avg_out <= 


0; 



end 

else if (symbol) 
begin 

store[7] <= store{6]; 

store[6] <= store[5]; 

store[5] <= store[4]; 

store[4] <= store[3]; 

store[3] <= store[2]; 

store[2] <= store[1]; 

store[1] <= store[0]; 

store[0] <= in_data; 

avg_out <= sum » 3; 
end 
end 

endmodule 

Listing 28 
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module twowire26 (elk, rst, in_valid, din, out_accept, out_valid, in_accept, 
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dout, set); 

input elk, rst, set, inj/alid, out_accept; 

input [25:0] din; 

output in_accept, outj/alid; 

output [25:0] dout; 

reg injaccept, outj/alid, accjnt, accjnt_reg, inj/alid reg val inf 
reg [25:0] dout t dinj-eg; ~ 1 ~ ' 



always @ (posedge elk) 
begin 

if (rst) 

outj/alid <= 0; 
1 5 else if (accjnt 1 1 set) 
outj/alid <= valjnt; 

if (in_accept) 
begin 

20 inj/alid_reg <= inj/alid; 
din_reg <= din; 
end 

if (accjnt) 

25 dout <= in_accept ? din : din_reg; 
if (set) 

accjnt_reg <= 1 ; 
else 

30 acc_int_reg <= accjnt; 
end 

always @ (out_accept or outj/alid or accjnt^reg or in valid or in valid req) 
begin ' ~ ^ - - y/ 

35 accjnt = out_accept 1 1 !out_valid; 

in_accept = acc_int_reg 1 1 !inj/alid_reg; . 

valjnt = in_accept ? inj/alid : in_valid j-eg; 
end 

40 endmodule 

module buffer (elk, nrst, resync, u_symbol_in, uc_pilotjn, ui data in 
uq_data_in, u^symboljDut, uc_pilot_out, uijjata out 
45 uqjjata_out, got_phase); 

input elk, nrst, resync, u_symboljn, uc_pilotjn, got phase- 
input [1 1 :0] ui jiatajn, uq jjatajn; 
output u_symboi_out, uc_pilot_out; 
50 output [1 1 :0] ui_data_out, uq_data_out; 

reg u_symbo!jDut, uc_pilotjDut, accept; 
wire u_symbol_o, ucjDilotjD; 
reg [11:0] ui_datajDut, uq_data_out; 
55 wire [1 1 :0] ui _data_o, uq_data_o; 
wire a, v; 
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wire [25:0] d; 

wire in_valid = u_symboMn 1 1 uc_pilot_in; 
wire rst = !nrst j | resync; 

twowire26 tw1 (.clk(cik), .rst(rst), .in_valid(in_valid), .din({u_symboUn, 
uc_pilot_in, ui_data_Jn, uq_data_in}), .out_accept(a), 
.out_valid(v), .in_accept(), .dout(d), .set(1'b0)); 

twowire25 tw2 (.clk(clk), .rst(rst), .in_valid(v), .din(d), 

.out_accept(accept), .out_valid(out_valid), .in_accept(a), 
dout({u_symboLo, uc_pilot_p, ui data o, uq data o», 
.set(VbO)); " " " 



always @ (u_symbol_o or uc_pilot_o or ui__data_o or uq_data_o or out_valid or 

accept) 
begin 

20 if (out^valid && accept) 
begin 

u_symbol_out = u_symbol_o; 

uc_pilot_out = uc_pilot_o; 

ui_data_out = ui_data_o; 
25 uq_data_out = uq_data_o; 
end 
else 
begin 

u_symbol_out = 0; 
30 uc_pilot_out = 0; 
ui_data_out = 0; 
uq_data_out = 0; 
end 
end 

35 

always @ (posedge cik) 
begin 

if (rst 1 1 got_phase) 
accept <= 1 ; 
40 else if (uc_pilot_out) 
accept <= 0; 
end 



endmodule 



Listing 29 



// Sccsld: %W% %G% 
50 Copyright (c) 1997 Pioneer Digital Design Centre Limited 



module divide (clk t go, numer, denom, answ, got); 
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y* ************** wwr*^:»irrrw*«*****^ 

this divider is optimised on the principal that the answer will always be 
less than 1 - ie denorn > numer 

input elk, go; 

input [10:0] numer, denom; 

output got; 

output [10:0] answ; 

reg got; 

reg [10:0] answ; 

reg [20:0] sub, internal; 

reg [3:0] dcount; 



always @ (posedge elk) 
begin 
if (go) 
20 begin 

dcount <= 0; 

internal <= numer « 10; 

sub <= denom « 9; 
end 

25 if (dcount < 11) 
begin 

if (internal > sub) 
begin 

internal <= internal - sub; 
30 answ[10 - dcount] <= 1; 
end 
else 
begin 

internal <= internal; 
35 answ[10 - dcount] <= 0; 
end 

sub <= sub » 1; 
dcount <= dcount + 1; 
40 end 

got <= (dcount == 10); 
end 

45 endmodule 

Listing 30 

//Sccsld.yoW^^ 
50 Copyright (c) 1997 Pioneer Digital Design Centre Limited 



/ 



module fserr_str (elk, nrst, resync, u_symbol, uc_pilot, ui_data t uq_data, guard, 
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freq_sweep, sr_sweep, lupdata, upaddr, upwstr, uprstr, upse!1, 
upse!2, ramjji, te, tdin, freq_err, samp_err, ram_rnw, 
ram_addr, ram_do, tdout); 

5 input elk, nrst, resync, u_symbol, uc_pilot, upwstr, uprstr, te, tdin, upseM, 
upsel2; 
input [1:0] guard; 

input [3:0] freq_sweep, sr_sweep, upaddr; 

input [1 1 :0] ui_data, uq_data; 
10 input [13:0] ram_do; 

output rarrwnw, tdout; 

output [9:0] ram_addr; 

output [12:0] freq_err, samp__err; 

output [13:0] ram_di; 
15 inout [7:0] lupdata; 

wire got_phase, en, load, symbol, u_symboljDuf, uc_pilot_buf; 
wire freq_open, sample_ppen; 

wire [1:0] guard_reg; ( 
20 wire [10:0] xcount; 

wire [11:0] ui_data_buf t uq_data_buf; 

wire [13:0] phasejn, phase_out; 

wire [20:0] acc_out_simple; 

wire [29:0] acc_out_prod; 
25 wire [12:0] freq_err_uf, samp_err_uf; 

wire [12:0] freq_err_fil, samp_err_fii, freqjwiddle, 
samplejwiddle; 

30 buffer buffer (.clk(clk), .nrst(nrst), .resync(resync), .u_symbol_in(u_symbol), 
.uc_pilotjn(uc_pilot), .ui_datajn(uijiata), 
.uq_datajn(uq_data), .u_symboLout(u_symboljDuf), 
.uc_pilot_out(uc_pilot_buf), .ui_data_out(ui__data_buO. 
.uq_data_out(uq_dataj3uf), .got_phase(got_phase)); 

35 

tan_taylor phase_extr (.clk(clk), .nrst(nrst), .resync(resync), 
.uc_pilot(uc_pilot_buf), .ui_data(ui_data_buf), 
.uq_data(uq_data_buf), .phase(phasejn), 
.got_phase(got_phase)); 

addr_gen addr_gen (.clk(clk), .resync(resync), .u_symbol(u_symboLbuf) 
.uc_piiot(uc_pilot_buf), .got_phase(got_phase), .en(en), 
.load(load), .guard(guard), .addr(ram_addr), .xcount(xcount) 
.guard_reg(guard_reg), .symbol(symbol)); 

pilot_store pilot_store (.clk(clk), .en(en), .ram_do(ram_do), 
.phasejn(phasejn), .ramjrnw(ramjTiw), 
.ram_di(ram_di), .phase_out(phase_out)); 

50 acc_simple acc_simple (.cik(clk), .resync(resync), Joad(load) 
.symbol(symbol), .new_phase(phasejn), 
.old_phase(phase_put), .acc_out(acc_out_simple)); 

acc_prod acc_prod (.clk(clk), .resync(resync), .load(load), 
55 .symbol(symbol), .new_phase(phase_in), 

.oid_phase(phase_out), .xcount(xcount)/ 



40 



45 
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.acc_out(acc_out_prod)); 

slow_arith slow_arith (.acc_simple(acc_out_simple), .acc_prod(acc_out_ prod) 
.guard(guard_reg), .freq_err_uf(freq_err_uf), 
.samp_err_uf(samp_err_uf)); 

avg_8 #(14) 

lpf_freq (.clk(clk), .resync(resync), .symbol(symbol), 
.in_data(freq_err_uf), .avg_out(freq_err_fil)); 

avg_8 #(14) 

lpf_samp (.clk(clk), .resync(resync), .symbol(symbol), 
.in_data(samp_srr_uf), .avg_out(samp_err_fil)); 

15 I* median_filter#(14) 

lpf_freq (.clk(clk), .nrst(nrst), .in_valid(symbol), 
.din(freq_err_uf), .dout(freq_err_fil)); 

median_filter #(14) 
20 lpf_samp (.clk(clk), .nrst(nrst), .in_valid(symbol), 

.din(samp_err_uf), .dout(samp_err_fil)); */ 

sweep_twiddle sweep_twiddle (.freq_err_fil(freq_err_fil), 
25 .samp_err_fii(samp_err_fii), 

.freq_sweep(freq_sweep), 

.sr_sweep(sr_sweep), .freq_open(freq_open), 

.sample_open(sample_open), 

.freq_twiddle(freq_twiddle), 
30 .sample_twiddle(sample_twiddle), 

.freq_err_out(freq_err), 

.samp_err_out(samp_err)); 

lupidec lupidec (.clk(clk), .nrst(nrst), .resync(resync), .upaddr(upaddr) 
35 .upwstr(upwstr), .uprstr(uprstr), .lupdata(lupdata), 

.freq_open(freq_open), .sample_open(sample_open), 
.freq_twiddle(freq_twiddle), .sample Jwiddle(sampiejwiddle) 
.sample_loop_bw(), .freq_loop_bw(), .freq_err(freq_err), 
.samp_err(samp_err), .f_err_update(), .s_err_update())- 



40 



50 



55 



endmodule 

Listing 31 



// Sccsld: %W% %G% 
45 /********«************ 

Copyright (c) 1997 Pioneer Digital Design Centre Limited 

~ - mf 



module lupidec (elk, nrst, resync, upaddr, upwstr, uprstr, lupdata, freq_open, 
sample_open, freq_twiddle, sample_twiddle, sample loop bw 
freq_loop_bw, freq_err, samp_err, f_err_update, ~ 
s_err_update); 

input elk, nrst, resync, upwstr, uprstr, f_err_update, s_err_update; 
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input [3:0] upaddr; 
j input [12:0] freq_err, samp_err; 
i inout [7:0] lupdata; 

output freq_open, sample_open; 
5 output [12:0] freqjwiddle, sample_twiddle, sample _loop_bw, freqJoopJ>w; 

reg freq_open, sample_open; 

reg [12:0] freqjwiddie, sample_twiddle, sample Joop_bw, freqJoop_bw; 

1 0 wire wr_str; 

wire [3:0] wr_addr; 
wire [7:0] wr_data; 

15 /*FOLDBEGINS 0 2 "address decode"*/ 

TFOLDBEGINS 0 0 "read decode"*/ 

wire f_errjwen = (upaddr == 4'he); 

wire f__errj_ren = (upaddr == 4'hf); 
I wire s_err_h_ren = (upaddr == 4'hc); 
20 wire s_errj_ren = (upaddr == 4'hd)'; 

wire Mwd_h_ren = (upaddr == 4*h4); 

wire f_twdj_ren = (upaddr == 4'h5); 

wire s_twd_h_ren = (upaddr == 4'h8); 

wire s_twd_l_ren = (upaddr == 4'h9); 
25 wire fjbw_h_ren = (upaddr == 4'h6); 

wire f_lbw_l__ren = (upaddr == 4'h7); 

wire sjbw_h_ren = (upaddr == 4'ha); 

wire sjbw_l_ren = (upaddr == 4'hb); 

/*FOLDENDS*/ 

30 

/*FOLDBEGINS 0 0 "write decode"*/ 

wire f_twd_h_wen = (wr_addr == 4*h4); 

wire f_twd_l__wen = (wr_addr == 4'h5); 

wire s_twd_h_wen = (wr_addr == 4'h8); 
35 wire s_twd J_wen = (wr_addr — 4'h9); 

wire f_lbw_h_wen = (wr_addr == 4*h6); 

wire f_lbw_l_wen = (wr_addr == 4'h7); 

wire sjbw_h_wen = (wr_addr == 4'ha); 

wire s_lbw_l_wen = (wr addr == 4'hb); 
40 /*FOLDENDS7 

TFOLDENDS*/ 

/*FOLDBEGINS 0 2 "upi regs"*/ 
/*FOLDBEGINS 0 0 "freq error status reg "*/ 
45 upLstatus_reg2 fr_err (.clk(clk), .nrst(nrst), .status_value({3 , b0 1 freq err}) 
.capture_strobe(f_err_update), .read_strobe(uprstr), 
. reg_select_l(f_err J__ren) , . reg_select_h (f_err_h_ren) 
Jupdata(lupdata)); 
/*FOLDENDS7 

50 

TFOLDBEGINS 0 0 "sample error status reg"*/ 

upLstatus_reg2 sr_err (.clk(clk), .nrst(nrst), .status_value({3'b0, samp err}) 
. capture j5trobe(s_err_update) t .read_strobe(uprstr) 
.reg_selectj(s_errj_ren), .reg_select_h(s_err_h ren) 
55 .lupdata(lupdata)); 
/*FOLDENDS*/ 
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TFOLDBEGINS 0 0 "control regs write latch"*/ 
upi_write_latch #(3) 

writejat (xlk(clk), .nrst(nrst), .lupdata(lupdata), .upaddr(upaddr), 
5 .write_strobe(upwstr), .write_data(wr_data), 

.write_address(wr_addr), .write sync(wr str)V 
/'FOLDENDS*/ ~ 

/*FOU BEGINS 0 0 "freq twiddle etc rdbk regs"*/ 
1 0 upi_rdbk_reg freq_r_upper (.control_value({freq_open, 2'bO, freq_twiddlen 2:8]}), 
.read_strobe(uprstr), .reg_select(f_twd_h_ren), 
.lupdata(lupdata)); 

upi_rdbk_reg freq_r_lower (.control_value(freq_twiddle[7:0]) f .read_strobe(uprstr), 
15 .reg_select(f_twd_l_ren), .lupdata(lupdata))- 

/*FOLDENDS*/ 

/*FOLDBEGINS 0 0 "samp twiddle etc rdbk regs"*/ 
upi_rdbk_reg samp_r_upper (.control value({sample open 2'bO 
20 sample_twiddle[12:8]}), - 

.read_strobe(uprstr), .reg_select(s_twd_h_ren), 

.lupdata(lupdata)); 

upi_rdbk_reg samp_r_lower (.control_value(sample_twiddle[7:0]), 
25 .read_strobe(uprstr), 

.reg_select(s_twd_l_ren), .lupdata(lupdata)); 
/*FOLDENDS*/ 

/*FOLDBEGINS 0 0 "freq loop bw rdbk regs"*/ 
30 upi_rdbk_reg fr_lp_r_upper (.control_value({3'b0, freq_loop_bw[12:8]}), 
.read_strobe(uprstr), .reg_select(f_lbw_h_ren), 
.lupdata(lupdata)); 

upi_rdbk_reg fr_lp_r_lower (.control_value(freq_loop_bw[7:0]), 
35 .read_strobe(uprstr), .reg_select(f_lbw_l_ren), 

.lupdata(lupdata)); 
/"FOLDENDS*/ 

/*FOLDBEGINS 0 0 "samp loop bw rdbk regs"*/ 
40 upi_rdbk_reg sr_lp_r_upper (.control_value({3'b0, sample_loop_bw[12:8]}), 
.read_strobe(uprstr), .reg_select(s_lbw_h_ren), 
.lupdata(lupdata)); 

upLrdbk_reg sr_lp_r_lower (.control_value(sample_loop_bw[7:0]), 
45 .read_strobe(uprstr), .reg_select(s_lbw_l_ren), 

.lupdata(lupdata)); 
/*FOLDENDS*/ 
TFOLDENDS*/ 

50 TFOLDBEGINS 0 2 "control regs"*/ 
always @ (posedge elk) 
begin 
if (Inrst) 
begin 

55 freq_open <= 0; 

sample_open <= 0; 
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freq_twiddle <= 0; 

sample_twiddle <= 0; 

sampleJoop_bw <= 0; //???? 

freqJoop_bw <= 0; //???? 
5 end 
else 
begin 

if (wr_str) 

begin 

10 if (f_twd_h_wen) 
begin 

freq_ppen <= wr_data[7]; 
freq_twiddle[12:8] <= wr_data[4:0]; 
end 

15 

if (f_twdj_wen) 

freq_twiddle[7:0] <= wr_data[7:0]; 

if (s_twd_h_wen) 
20 begin 

sample_open <= wr_data[7]; 
sample_twiddle[12:8] <= wr_data[4:0]; 
end 

25 if (s_twd_i_wen) 

sample_twiddle[7:0] <= wr__data[7:0]; 

if (f_lbw_h_wen) 

freqJoop_bw[12:8] <= wr_data[4:0]; 

30 

if (f_ibw_l_wen) 

freqjoop_bw[7:0] <= wr_data[7:0]; 

if (sjbw_h_wen) 
35 sample_loop_bw{12:8] <= wr_data[4:Q]; 

if (sjbwj_wen) 

sample_loop_bw[7:0] <= wr_data[7:0]; 

40 end 
end 
end 

/*FOLDENDS*/ 
45 endmodule 

Listing 32 

// Sccsld: %W% %G% 
Copyright (c) 1997 Pioneer Digital Design Centre Limited 
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module pilot_store (cik, en, ram_do, phasejn, ranwnw, ram_di, phasejDut); 

input cik, en; 
// input [9:0] addr; 
5 input [13:0] phasejn; 
input [13:0] ramjdo; 
output ramjnw; 

output [13:0] ram_di, phasejDut; 

10 wire ram_rnw; 

//regen_d1; 

// reg [9:0] addrj-eg; 

//reg [13:0] mem [579:01; 

reg [13:0] phase jDut; //, phasejn j-eg; 
15 wire [13:0] ram_di; 

always @ (posedge elk) 
begin 

20 //en_d1 <= en; 

if (en) 
begin 

// phasejnj-eg <= phasejn; 
25 // addr_reg <= addr; 

phase jDut <= ramjjo; 
// phase_out <= mem[addr]; 
end 

//if (enjil) 
30 // mem[addr_reg] <= phasejnj-eg; 
end 



35 



40 



45 



assign ramjdi = phasejn; 
assign ram_rnw = !en; 

endmodule 

Listing 33 

y L? c i:!l d ; ^XS!l % J?°*° 

Copyright (c) 1997 Pioneer Digital Design Centre Limited 
module slow_arith (acc_simpie, acc_prod, guard, freq_errjjf, samp_errjjf); 



input [1:0] guard; 
50 input [20:0] acc_simple; 
input [29:0] acc_prod; 
output [12:0] freq_err_uf, samp_errjjf; 

reg [12:0] freq_err_uf, samp_errjjf; 
55 reg [20:0] freq_scale; 
reg [38:0] interjreq; 
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reg sign; 

reg [20:0] mod_acc; 

reg [38:0] mod__trunc_sat; 

reg [41:0] mod; 

reg sign_a, signjD, sign_inter_sr; 

reg [20:0] mod_acc_s; 

reg [29:0] mod_acc_p; 

reg [35:0] a, mod_a; 

reg [35:0] b, mod_b; 

reg [36:0] mod_diff, diff; 

reg [46:0] inter_sr, mod_inter_sr; 



parameter sp = 45, acc_x = 33927, samp_scale = 1 1'b101001001 10; 

always @ (guard) 
case (guard) 

2'b00: freq_scale = 2rb0111101001111100010ir //quard 
2*b01: freq_scaie = 21 ! b01 11 01 101 11 0001 00001 V //guard 
2'b10: freq_scale = 21 'b01 11 000001 0001 11 01 01 0 : //guard 
2'b11: freq_scale = 2rb011001010000110011111; //guard 
endcase 

always @ (acc_simple or freq_scaie) 
begin 

sign = acc_simple[20]; 

mod_acc = sign ? (-acc_simple + 1) : acc_simple; 
mod = (freq_scale * mod_acc); 
// interjreq = sign ? (-mod + 1) : mod; 

if (mod[41:38] > 0) 
begin 

mod Jrunc_sat = 39'h3fffffffff; 
$display("freq_err saturated"); 
end 
else 

mod_trunc_sat = mod[38:0]; 

interjreq = sign ? (-mod_trunc_sat + 1) : mod_trunc_sat; 

freq_err_uf = inter_freq » 26; 
end 

always @ (acc_simple or accj>rod) 
begin 

sign_a = acc_prod[29]; 

mod_acc_p = sign_a ? (~acc_prod + 1) : acc_prod; 
mcd_a = sp * mod_acc_p; 
a = sign__a ? (~mod_a + 1) : mod_a; 

sign_b = acc_simple[20]; 

mod_acc_s = sign_b ? (-~acc_simple + 1) : acc_simple; 
mod_b = acc_x * rnod_acc_s; 



== 64 
== 128 
== 256 
== 512 
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b = sign_b ? (~mod_b + 1 ) : mod_b; 

diff = {a[35], a} - {b[35] t b}; // sign extend 

5 sign_inter_sr = diff[36]; 

mod_diff = sign_inter_sr ? (-diff + 1) : diff; 

mod_inter_sr = (mod_diff * samp_scale); 

inter_sr = signjnter_sr ? (~mod_inter_sr + 1) : mod_jnter_sr; 

10 samp_errjjf = inter_sr » 34; //Hscaling!! 
end 

endmcdule 

15 Listing 34 

// Sccsld: %W% %G% 

r 

Copyright (c) 1997 Pioneer Digital Design Centre Limited 

module sweep Jwiddle (freq_err_fil, samp_err_fil, freq_sweep, sr_sweep, 
freq_open, sampie_open, freq_twiddle, sample_twiddle, 
freq_err_out, samp_err_out); 

25 input rreq_open, sampie_open; 

input [3 0] freq_sweep, sr_sweep; 

input [12 0] freq_err_fil, samp_err_fil, freq_twiddle, samplejwiddle; 
output [12:0] freq_err_out, samp_err_out; 

30 reg [12:0] freq_err_put, samp_err_out; 

reg [12:0] freq_err_swept, samp_err_swept; 



always @ (freq_sweep or freq_err_fil) 
35 case (freq_sweep) 

4'bOOOO: freq_err_swept = freq_err_fil; 

4'b0001: freq_err_swept = freq_err_fil + 500; 

4'b0010: freq_err_swept = freq_err_fil + 1000; 

4'b001 1: freq_err_swept = freq_err_fil + 1500; 
40 4'b0100: freq_err_swept = freq_err_fil + 2000; 

4'b0101: freq_err_swept = freq_err_fil + 2500; 

4'b01 10: freq_err_swept = freq_err_fil + 3000; 

4*b01 1 1 : freq_err_swept = freq_errjil + 3500; 

default: freq_err_swept = freq_err_fil; 
45 endcase 

always @ (sr_sweep or samp_err_fil) 
case (sr__sweep) 

4'bOOOO: samp_err_swept = samp_err_fil; 
50 4'b0001 : samp_err__swept = samp_err_fil + 500; 

4'b0010: samp_err_swept = samp_err_fil - 500;' 

4'b001 1 : samp_err_swept = samp_err_fil + 1000; 

4'b0100: samp_err_swept = samp_err_fil - 1000; 

4'b0101: samp_err_swept = samp_err_fil + 1500; 
55 4*b01 1 0: samp_err_swept = samp_err_fil - 1500;' 

4'b01 1 1 : samp_err_swept = samp_errjil + 2000; 
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4'b1000: samp_err_swept = samp_err_fil - 2000; 
default: samp_err_swept = samp_err_fil; 
endcase 

5 always @ (freq_err_swept or freq_open or freq_twiddle) 
if (freq_open) 

freq_err_out = freq_twiddle; 
else 

freq_err_out = freq_err_swept + freq_twiddle; 

10 

always @ (samp_err_swept or sample_open or samplejwiddle) 
if (sampie_open) 
samp_err_out = samp!e_twiddle; 
else 

15 samp_err_out = samp_err_swept + sample_twiddle; 



endmodule 

20 Listing 35 

// Sccsld: %W% %G% 

Copyright (c) 1997 Pioneer Digital Design Centre Limited 



module tan_taylor (elk, nrst, resync, uc_piiot, uijjata, uq_data, phase, 
30 got_phase); 

input elk, nrst, resync, uc_pilot; 
input [1 1 :0] ui_data, uq__data; 
output got_phase; 
35 output [1 3:0] phase; 

reg got_phase; 
reg [13:0] phase; 

reg add, qgti, modqeqi, Lzero_reg, q_zero_reg, go; 
40 reg [1:0] quadrant; 

reg [6:0] count, count_d1; 

reg [10:0] mod J, mod_q, coeff, numer, denom; 

reg [21:0] x_sqd, x_pow, nextjerm, sum, flip, nextjerm_unshift, prev_sum, 
x_sqd_unshift, x_pow_unshift; 
45 wire got; 

wire [10:0] div; 

parameter pi = 6434, pi_over2 = 3217, minus _pi_o2 = 13167, pi_over4 = 1609; 

50 

divide divl (elk, go, numer, denom, div, got); 

always @ (posedge elk) 
begin 

55 if (!nrst 1 1 resync) 

count <= 7^1111111; 



BNSDOCID: <WO; 9819410A2_I_> 



WO 98/19410 PCT/US97/18911 

263 

else 
begin 

if (uc_pilot) 

begin 

5 mod J <= ui_data[1 1] ? (~ui_data[10:0] + 1) : ui_data[10:0]; 

mod_q <= uq_data[11] ? (~uq_data[10:0] + 1) : uq_data[10:0]; 
quadrant <= {uq_data[1 1], ui_data[1 1]}; 
count <= 0; 
go <= 0; 
10 end 

else 
begin 

if (count == 0) 
15 begin 

qgti <= (mod_q > mod_i); 

modqeqi <= (mod_q == mod J); 

i_zero_reg <= (mod_i == 0); 

a__zero_reg <= (mod_a == 0); 
20 add <= 0; 

go <= 1; 

count <= 1 ; 

end 

25 if ((count >= 3) && (count < 71)) 
count <= count + 2; 

if (count == 1) 
begin 
30 go <= 0; 

if (got) 

begin 

sum <= div; 
x_pow <= div; 
35 x_sqd <= x_sqd_unshift » 1 1 ; 

count <= 3; 
end 
end 

40 if ((count > 1) && (count < 69)) 

x_pow <= x_pow_unshift » 1 1 ; 

if ((count > 3) && (count < 69)) 

next_term <= next_term_unshift » 12; 

if ((count > 5) && (count < 69)) 
45 begin 

prev_sum <= sum; 

sum <= add ? (sum + nextjerm) : (sum - nexMerm); 
add <= !add; 
end 

50 end 

if (count == 67) 

sum <= (prev_sum + sum) » 1 ; 
if (count == 69) 

casex ({i_zero_reg, q_zero_reg, qgti, modqeqi, quadrant}) 
55 6'b1xx0_0x: phase <= pi_over2; 

6'b1xx0_1x: phase <= minus_pi_o2; 
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6'b01x0_x0: 
6'bOlxO x1: 



phase <= 0; 
phase <= pi; 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



6'b0010_00: phase <= {2'bOO, fiip[11:0]}; 
6'b0010_01: phase <= pi - {2'bOO, flip[11:0]}; 
6'b0010_10: phase <= 0 - {2'bOO, flip[11:0]}; 
6'b001 0_1 1 : phase <= {2*b00, flip[1 1 :0]} - pi; 

6'b0000_00: phase <= {2'bOO, sum[11:0]}; 
6'b0000_01: phase <= pi - {2'bOO, sum[1 1:0]}; 
6*b0000_10: phase <= 0 - {2'bOO, sum[1 1:0]}; 
6'b0000_1 1 : phase <= {2'bOO, sum[1 1 :0]} - pi; 

6'bxxx1_00: phase <= pi_over4; 
6'bxxx1_01: phase <= pi - pi_over4; 
6'bxxx1_10: phase <= 0 - pi_over4; 
6"bxxx1_1 1 : phase <= pi_over4 - pi; 
endcase 

i 

countdl <= count; 

got_phase <= (count -- 69); 
end 
end 

always @ (div) 

x_sqd_unshift = div * div i II nad to do this in order to stop synthesis throwing away! 
always @ (x_pow or coeff) 

next_term_unshift = (x_pow * coeff); // compass dp_cell mult_booth_csum 

always @ (x_pow or x_sqd) 
x_pow_unshift = (x_pow * x_sqd); 



// compass dp_cell mult_booth_csum 



always @ (count_d1) 

case (count_d1) 

3: coeff = 1 1'b10101010101 
5: coeff = 1 1'b01 1001 10011 
7: coeff = 1 1'b01001001001 
9: coeff = 11'b001 110001 11 
11: coeff = 11'b00101 110100 
13: coeff = irb00100111011 
15: coeff = 11'b001 0001 0001 
17: coeff =11*b0001 11 10001 
19: coeff = 11'b0001 10101 11 
21: coeff = 1 1'b0001 1000011 
23: coeff = 11'b0001 01 10010 
25: coeff = 11'b0001 01 00011 
27: coeff = 11'b00010010111 
29: coeff = 11'b0001 0001 101 
31: coeff = 11'bOO0 10000 100 
33: coeff = 1 1 "b00001 1 11100 
35: coeff = 1 1 'b00001 110101 
37: coeff = irb00001101110 
39: coeff = H'bOOOOl 101001 
41 : coeff = 1 1 'b00001 1 001 00 
43: coeff = 1 1 'bOOOOl 011111 
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45: coeff = 11'b0000101 1011; 
47: coeff = 11'b00001010111; 
49: coeff = 11'b00001 01 0011; 
51: coeff = 11"b00001010000; 
5 53: coeff = 1 1 "b00001 001 101; 

55: coeff = 1 1'b00001001010; 
57: coeff = 11'b00001000111; 
59: coeff = 11 ^00001 0001 01; 
61: coeff = 11'b00001 000011; 
10 63: coeff = 1 1*b00001 000001; 

// 65: coeff = 1 1 "b000001 11111; 
//67. coeff = irb00000111101; 
//69: coeff = 11'b000001 11011; 
// 71 : coeff = 1 1 'b000001 1 1 001 ; 
15 // 73: coeff = 1 1 'b000001 1 1 000; 
//75: coeff = 11'b00000110110; 
// 77: coeff = 1 1 'bOOOOOl 10101; 
default: coeff =11 "bx; 
endcase 

20 

always @ (mod_q or mod_i or qgti) 
begin 

numer = qgti ? mod_i : mod_q; 
denom = qgti ? mod_q : mod_i; 
25 end 

always @ (sum) 

flip = pi_over2 - sum; 

30 // always @ (got) 
// if (got) 

// $display("numer was %d, denom was %d, div then %d", numer, denom, div); 
// always @ (count) 

35 // if (count < 68 ) $display("as far as x to the %0d term, approx = %d", (count-6), 
sum); 

always @ (got _phase) 
begin: display 
40 reg [13:0] real_phase; 

if (phase[13]) 
begin 

real_phase = (~phase +1); 
45 if (got_phase) $display("%t: got phase, phase = -%0d", $time, realphase); 
end 
else 
begin 

if (got_phase) $display("%t: got phase, phase = %0d", $time, phase); 
50 end 

end // display 

endmodule 
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While this invention has been explained with reference to the structure disclosed 
herein, it is not confined to the details set forth and this application is intended to cover 
any modifications and changes as may come within the scope of the following claims: 
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CUMMS 

t 

1 ! 1 . A digital receiver for multicarrier signals comprising: 

2 an amplifier accepting an analog multicarrier signal, wherein said multicarrier 

3 signal comprises a stream of data symbols having a symbol period T s , wherein the 

4 symbols comprise an active interval, a guard interval, and a boundary therebetween, 

5 said guard interval being a replication of a portion of said active interval; 

6 an analog to digital converter coupled to said amplifier; 

7 an !/Q demodulator for recovering in phase and quadrature components from 

8 data sampled by said analog to digital converter; 

9 an automatic gain control circuit coupled to said analog to digital converter for 

10 providing a gain control signal for said amplifier; 

1 1 j a low pass filter circuit accepting I and Q data from said l/Q demodulator, wherein 

12 said I and Q data are decimated; 

13 a resampling circuit receiving said decimated I and Q data at a first rate and 

14 outputting resampled I and Q data at a second rate; 

15 an FFT window synchronization circuit coupled to said resampling circuit for 

16 locating a boundary of said guard interval; 

17 a real-time pipelined FFT processor operationally associated with said FFT 

18 window synchronization circuit, wherein said FFT processor comprises at least one 

19 stage, said stage comprising: 

20 a complex coefficient multiplier; and 

21 a memory having a lookup table defined therein for multiplicands being 

22 multiplied in said complex coefficient multiplier, a value of each said multiplicand 

23 being unique in said lookup table; and 

24 a monitor circuit responsive to said FFT window synchronization circuit for 

25 detecting a predetermined event, whereby said event indicates that a boundary between 

26 an active symbol and a guard interval has been located. 

1 2. The receiver according to claim 1 , wherein said FFT window synchronization 

2 circuit comprises: 

3 a first delay element accepting currently arriving resampled I and Q data, and 

4 outputting delayed resampled I and Q data; 

5 a subtracter, for producing a difference signal representative of a difference 

6 between said currently arriving resampled I and Q data and said delayed resampled I 

7 and Q data; 
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8 a first circuit for producing an output signal having a unipolar magnitude that is 

9 representative of said difference signal of said subtracter; 

1 0 a second delay element for storing said output signal of said first circuit; 

1 1 a third delay element receiving delayed output of said second delay element; and 

12 a second circuit for calculating a statistical relationship between data stored in 

13 said second delay element and data stored in said third delay element and having an 

14 output representative of said statistical relationship. 

1 3. The receiver according to claim 2, wherein said statistical relationship 

2 comprises an F ratio. 

1 4. The receiver according to claim 1 , wherein said FFT processor operates in an 

2 8K mode. i 

I 

1 5. The receiver according to claim 1 , wherein said wherein said FFT processor 

2 further comprises an address generator for said memory, said address generator 

3 accepting a signal representing an order dependency of a currently required multipli- 

4 cand, and outputting an address of said memory wherein said currently required 

5 multiplicand is stored. 

1 6. The receiver according to claim 5, wherein each said multiplicand is stored in 

2 said lookup table in order of its respective order dependency for multiplication by said 

3 complex coefficient multiplier, said order dependencies of said multiplicands defining an 

4 incrementation sequence, and said address generator comprises: 

5 an accumulator for storing a previous address that was generated by said 

6 address generator; 

7 a circuit for calculating an incrementation value of said currently required 

8 multiplicand; and 

9 an adder for adding said incrementation value to said previous address. 

1 7. The receiver according to claim 6, wherein said lookup table comprises a 

2 plurality of rows, and said incrementation sequence comprises a plurality of 

3 incrementation sequences, said multiplicands being stored in row order, wherein 

4 in a first row a first incrementation sequence is 0; 

5 in a second row a second incrementation sequence is 1 ; 

6 in a third row first and second break points B1, B2 of a third incrementation 

7 sequence are respectively determined by the relationships 
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